(start-all) ( seq subseq increment -- indices )


Vocabulary
sequences.extras

Inputs
seqa sequence
subseqan object
incrementan object


Outputs
indicesan object


Definition


:: (start-all) ( seq subseq increment -- indices )
0
[ seq subseq subseq-index-from dup ]
[ [ increment + ] keep ] produce nip ;