multisplit ( string separators -- seq )

Vocabulary

rosetta-code.multisplit

Inputs

string	an object
separators	an object

Outputs

seq

an object

Definition

USING: kernel make sequences ;

IN: rosetta-code.multisplit

: multisplit ( string separators -- seq )
    [ [ dup ] ] dip [ first-subseq dup ] curry compose [
        [ length -rot cut-slice [ , ] dip swap tail-slice ]
        while 2drop ,
    ] curry { } make ;