first-subseq ( seq separators -- n separator )

Vocabulary

rosetta-code.multisplit

Inputs

seq	an object
separators	an object

Outputs

n	an object
separator	an object

Definition

USING: arrays assocs kernel sequences ;

IN: rosetta-code.multisplit

: first-subseq ( seq separators -- n separator )
    tuck [ [ subseq-index ] dip 2array ] withd map-index
    sift-keys
    [ drop f f ] [ [ first ] minimum-by first2 rot nth ]
    if-empty ;