indices* ( seq obj -- indices )


Vocabulary
sequences.extras

Inputs
seqan object
objan object


Outputs
indicesan object


Definition
USING: kernel sequences ;

IN: sequences.extras

: indices* ( seq obj -- indices )
[ = ] curry [ swap ] prepose V{ } clone
[ [ push ] curry [ [ drop ] if ] curry compose each-index ]
keep ;