progressive-index-by-as ( seq1 seq2 quot exemplar -- hash seq' )

Vocabulary

sequences.extras

Inputs

seq1	an object
seq2	an object
quot	an object
exemplar	an object

Outputs

hash	an object
seq'	an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: progressive-index-by-as
    ( seq1 seq2 quot exemplar -- hash seq' )
    [
        pick length [ [ over inc-at* drop ] compose ] dip [
            [ [ tuck ] ] dip [ 2dip swap nth-index ] curry
            compose
        ] dip [ or ] curry compose [ H{ } clone ] 3dip with
    ] dip map-as ; inline