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

Vocabulary

modern.slices

Inputs

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

Outputs

i/f	an object
elt	an object
?	an object

Definition

USING: kernel sequences ;

IN: modern.slices

: find-from*
    ( ... n seq quot: ( ... elt -- ... ? ) -- ... i/f elt ? )
    [ find-from ] keepd pick [ drop t ] [ length -rot nip f ] if
    ; inline