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

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

Vocabulary
math.statistics

Inputs

seq	an object
kths	an object
quot	a quotation with stack effect ( x y -- ? )

Outputs

elts	an object

Definition

USING: kernel sequences ;

IN: math.statistics

: kth-objects ( seq kths quot: ( x y -- ? ) -- elts )
[ kth-object ] curry with map ; inline