count-relative ( seq k -- lt eq gt )

Vocabulary

math.statistics

Inputs

seq	an object
k	an object

Outputs

lt	an object
eq	an object
gt	an object

Definition

USING: combinators kernel math math.order sequences ;

IN: math.statistics

: count-relative ( seq k -- lt eq gt )
    [ 0 0 0 ] 2dip [
        <=> {
            { +lt+ [ [ 1 + ] 2dip ] }
            { +gt+ [ 1 + ] }
            { +eq+ [ [ 1 + ] dip ] }
        } case
    ] curry each ;