split-subseq ( seq subseq -- seqs )

Vocabulary

splitting

Inputs

seq	an object
subseq	an object

Outputs

seqs

an object

Definition

USING: arrays kernel sequences ;

IN: splitting

: split-subseq ( seq subseq -- seqs )
    [ 1array ]
    [ [ dup ] swap [ split1-slice swap ] curry produce nip ]
    if-empty ;