find-index-from* ( ... n seq quot: ( ... elt i -- ... ? ) -- ... elt i/f )

Vocabulary

sequences.extras

Inputs

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

Outputs

elt	an object
i/f	an object

Definition

USING: kernel math sequences.private ;

IN: sequences.extras

: find-index-from*
    ( ... n seq quot: ( ... elt i -- ... ? ) -- ... elt i/f )
    [
        [ sequence-index-operator find-integer-from ] keepd
        element/index
    ] curry bounds-check-call ; inline