map-prior-identity-from-as ( ... identity i seq quot: ( ... prior elt -- elt' ) exemplar -- seq' )

Vocabulary

sequences.extras

Inputs

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

Outputs

seq'

an object

Definition

USING: kernel sequences sequences.private ;

IN: sequences.extras

: map-prior-identity-from-as
    ( ... identity i seq quot: ( ... prior elt -- elt' ) exemplar -- seq' )
    [
        [ [ swap ] ] dip compose [ 1check ] curry
        length-operator
    ] dip map-integers-from-as nip ; inline