subseq-indices ( seq subseq -- indices )


Vocabulary
sequences.extras

Inputs
seqan object
subseqan object


Outputs
indicesan object


Definition
USING: kernel math sequences ;

IN: sequences.extras

: subseq-indices ( seq subseq -- indices )
[ 0 ] 2dip
[ subseq-index-from [ [ 1 + ] keep ] [ f f ] if* dup ]
2curry [ ] produce 2nip ;