find-last-nth-from ( m n seq quot -- i/f elt/f )

Vocabulary

html.parser.analyzer

Inputs

m	an object
n	an object
seq	an object
quot	an object

Outputs

i/f	an object
elt/f	an object

Definition

USING: kernel math sequences ;

IN: html.parser.analyzer

: find-last-nth-from ( m n seq quot -- i/f elt/f )
    check-trivial-find [ f ] 3dip [ [ [ drop ] ] dip ] dip
    [ find-last-from [ dup [ 1 - ] when ] dip over ] 2curry
    compose loopn [ dup [ 1 + ] when ] dip ; inline