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 ;