kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Fix splitByAll side effect

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-03-20 21:04:27 -06:00
parent 99727e3701
commit 6ccaa78ca2
2 changed files with 17 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
projects/bad-nlp/src/bad_nlp/Main_.kiss
View File

@@ -1,3 +1,4 @@
(doFor _ (range 2)
(doFor name [ (doFor name [
"Finn" "Finn"
"Miguel" "Miguel"
@@ -13,3 +14,4 @@
(assert (Names.isName name))) (assert (Names.isName name)))
(assertEquals 5 .length (Names.findNames "Vanessa, Finn, and Tracy--and George--go to Troy's...")) (assertEquals 5 .length (Names.findNames "Vanessa, Finn, and Tracy--and George--go to Troy's..."))
)

2
projects/bad-nlp/src/bad_nlp/Util.kiss
View File

@@ -27,7 +27,7 @@
]) ])
(function :Array<String> splitByAll [:String text :Array<String> delims] (function :Array<String> splitByAll [:String text :Array<String> delims]
(if delims (ifLet [delims (delims.copy)]
(let [next (delims.shift) (let [next (delims.shift)
tokens (text.split next)] tokens (text.split next)]
(flatten (for token tokens (splitByAll token (delims.copy))))) (flatten (for token tokens (splitByAll token (delims.copy)))))