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 @ ] keep ] length-operator each-integer-from drop
    ; inline