7 lines
239 B
Text
7 lines
239 B
Text
|
to split :str :by [:acc []] [:w "||]
|
||
|
|
if empty? :str [output lput :w :acc]
|
||
|
|
ifelse equal? first :str :by ~
|
||
|
|
[output (split butfirst :str :by lput :w :acc)] ~
|
||
|
|
[output (split butfirst :str :by :acc lput first :str :w)]
|
||
|
|
end
|