bqn-index-by-as ( seq1 seq2 quot exemplar -- seq )

Vocabulary

sequences.extras

Inputs

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

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

: bqn-index-by-as ( seq1 seq2 quot exemplar -- seq )
    [
        over length 1 + [ [ swap index ] compose ] dip
        [ or ] curry compose with
    ] dip map-as ; inline