kth-objects ( seq kths quot: ( x y -- ? ) -- elts )

Vocabulary
math.statistics

Definition

USING: kernel math.statistics.private sequences ;

IN: math.statistics

: kth-objects ( seq kths quot: ( x y -- ? ) -- elts )
    [ clone ] 2dip [ [ [ nth ] [ exchange ] ] ] dip
    [ ((kth-object)) ] curry compose with map ; inline