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

Vocabulary

math.statistics.private

Inputs

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

Outputs

elt

an object

Definition

USING: kernel sequences.private ;

IN: math.statistics.private

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