TudbuT/isbpl
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix strsplit

Browse source
This commit is contained in:
Daniella 2022-02-05 23:16:53 +01:00
parent 3d417928b4
commit 2f4964d9b9
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
std.isbpl
View file

@ -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
}
} }
} }