each-prior-identity-from ( ... identity i seq quot: ( ... prior elt -- ... ) -- ... )

Vocabulary

sequences.extras

Inputs

identity	an object
i	an object
seq	an object
quot	a quotation with stack effect ( ... prior elt -- ... )

Outputs

None

Definition

USING: kernel math sequences.private ;

IN: sequences.extras

: each-prior-identity-from
    ( ... identity i seq quot: ( ... prior elt -- ... ) -- ... )
    [ [ swap ] ] dip compose [ keep ] curry
    length-operator each-integer-from drop ; inline