find-nth-last ( 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 math sequences ;

IN: sequences.extras

: find-nth-last ( nth seq quot: ( obj -- ? ) -- i/f obj/f )
    [ [ length 1 - ] keep ] dip find-nth-last-from ; inline