subseq-range ( seq subseq -- from/f to/f )

Vocabulary

splitting

Inputs

seq	an object
subseq	an object

Outputs

from/f	an object
to/f	an object

Definition

USING: kernel math sequences ;

IN: splitting

: subseq-range ( seq subseq -- from/f to/f )
    tuck subseq-index [ dup rot length + ] [ drop f f ] if* ;