(kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )

Vocabulary

math.statistics.private

Inputs

seq	an object
k	an object
nth-quot	an object
exchange-quot	an object
quot	a quotation with stack effect ( x y -- ? )

Outputs

elt

an object

Definition

USING: arrays kernel ;

IN: math.statistics.private

: (kth-object)
    ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
    [ >array ] 4dip kth-object-impl ; inline