fix strsplit
This commit is contained in:
parent
3d417928b4
commit
2f4964d9b9
12
std.isbpl
12
std.isbpl
|
@ -176,21 +176,23 @@ func strsplit {
|
||||||
|
|
||||||
1 neg =i
|
1 neg =i
|
||||||
"" 0 anew =sequences
|
"" 0 anew =sequences
|
||||||
|
"" =sequence
|
||||||
while (i 1 + =1) (i str alen lt) {
|
while (i 1 + =1) (i str alen lt) {
|
||||||
str i aget =chr
|
str i aget =chr
|
||||||
splitter 0 aget =spl
|
splitter 0 aget =spl
|
||||||
"" =sequence
|
sequence chr strconcat =sequence
|
||||||
1 neg =j
|
1 neg =j
|
||||||
while (j 1 + =j) (chr spl eq) {
|
while (j 1 + =j) (chr spl eq) {
|
||||||
(str i j + aget dup =chr) (splitter j aget dup =spl) eq not if {
|
j splitter alen eq if {
|
||||||
sequences =oldsq
|
sequences =oldsq
|
||||||
"" (sequences alen dup =seq 1 +) anew =sequences
|
"" (sequences alen dup =seq 1 +) anew =sequences
|
||||||
oldsq sequences 0 0 oldsq alen acopy
|
oldsq sequences 0 0 oldsq alen acopy
|
||||||
sequences seq sequence aput
|
sequences seq sequence aput
|
||||||
|
"" =sequence
|
||||||
|
stop
|
||||||
}
|
}
|
||||||
else {
|
str i j + aget dup =chr
|
||||||
sequence chr strconcat =sequence
|
splitter j aget dup =spl
|
||||||
}
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue