10 lines
284 B
Text
10 lines
284 B
Text
|
(define (multi-split str seps)
|
||
|
|
(let (parsed
|
||
|
|
(find-all
|
||
|
|
(string {((.*?)(} (join (map string seps) "|") {))|(.+)$})
|
||
|
|
str
|
||
|
|
(if (= "" $3) (list $4) (list $2 $3))))
|
||
|
|
(list parsed (map first parsed))))
|
||
|
|
|
||
|
|
(multi-split "a!===b=!=c" '(== != =))
|