do-find-from ( ... 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

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