find-nth ( nth seq quot: ( obj -- ? ) -- i/f obj/f )

Vocabulary

sequences.extras

Inputs

nth	an object
seq	an object
quot	a quotation with stack effect ( obj -- ? )

Outputs

i/f	an object
obj/f	an object

Definition

USING: kernel ;

IN: sequences.extras

: find-nth ( nth seq quot: ( obj -- ? ) -- i/f obj/f )
    [ 0 ] 2dip find-nth-from ; inline