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


Vocabulary
sequences.extras

Inputs
seq1an object
seq2an object
quotan object
exemplaran object


Outputs
seqan object


Definition
USING: kernel math sequences ;

IN: sequences.extras

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