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

Vocabulary

sequences.extras

Inputs

seq	a sequence
subseq	an object
increment	an object

Outputs

indices

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

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