twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

fix words

Browse Source
This commit is contained in:
Scott Richmond 2024-06-17 13:29:08 -04:00
parent 848ba249ca
commit 8eed4145db
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
prelude.ld
View File

@ -377,9 +377,9 @@ fn words {
let no_punct = strip (str) let no_punct = strip (str)
let strs = split (no_punct, " ") let strs = split (no_punct, " ")
fn worder (list, str) -> if empty? (str) fn worder (list, str) -> if empty? (str)
then do list > report! then list
else do append (list, str) > report! else append (list, str)
do fold (worder, strs, []) > report! fold (worder, strs, [])
} }
} }

2
src/ludus.janet
View File

@ -52,7 +52,7 @@
(comment (comment
# (do # (do
(def source ` (def source `
fold (add, [1, 2, 3]) words ("foo bar ba,;;;!!!z")
`) `)
(def out (-> source (def out (-> source
ludus ludus