find-last-from-unsafe ( ... n seq quot: ( ... elt -- ... ? ) -- ... i/f seq )

Vocabulary

sequences.private

Inputs

n	an object
seq	an object
quot	a quotation with stack effect ( ... elt -- ... ? )

Outputs

i/f	an object
seq	an object

Definition

USING: kernel math ;

IN: sequences.private

: find-last-from-unsafe
    ( ... n seq quot: ( ... elt -- ... ? ) -- ... i/f seq )
    [ length-operator nip find-last-integer ] keepd ; inline