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

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
"" 0 anew =sequences
"" =sequence
while (i 1 + =1) (i str alen lt) {
str i aget =chr
splitter 0 aget =spl
"" =sequence
sequence chr strconcat =sequence
1 neg =j
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 alen dup =seq 1 +) anew =sequences
oldsq sequences 0 0 oldsq alen acopy
sequences seq sequence aput
"" =sequence
stop
}
else {
sequence chr strconcat =sequence
}
str i j + aget dup =chr
splitter j aget dup =spl
}
}