(re-split) ( string regexp quot -- pieces )

Vocabulary

regexp.private

Inputs

string	an object
regexp	an object
quot	an object

Outputs

pieces

an object

Definition

USING: arrays kernel regexp sequences ;

IN: regexp.private

: (re-split) ( string regexp quot -- pieces )
    [ 0 ] 3dip [
        [ [ swap ] ] dip [ dip swap ] curry compose collector
        [ each-match ] dip swap
    ] 3keep nip [ [ length ] keep ] dip call suffix! >array ;
    inline