Compare commits
2 Commits
2ae5f7929a
...
ef4a345da6
Author | SHA1 | Date | |
---|---|---|---|
|
ef4a345da6 | ||
|
2203601770 |
4
package-lock.json
generated
4
package-lock.json
generated
|
@ -1,12 +1,12 @@
|
|||
{
|
||||
"name": "@ludus/ludus-js-pure",
|
||||
"version": "0.1.17",
|
||||
"version": "0.1.18",
|
||||
"lockfileVersion": 3,
|
||||
"requires": true,
|
||||
"packages": {
|
||||
"": {
|
||||
"name": "@ludus/ludus-js-pure",
|
||||
"version": "0.1.17",
|
||||
"version": "0.1.18",
|
||||
"license": "GPL-3.0",
|
||||
"devDependencies": {
|
||||
"shadow-cljs": "^2.26.0",
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
{
|
||||
"name": "@ludus/ludus-js-pure",
|
||||
"version": "0.1.17",
|
||||
"version": "0.1.18",
|
||||
"description": "A Ludus interpreter in a pure JS function.",
|
||||
"type": "module",
|
||||
"main": "build/ludus.mjs",
|
||||
|
|
|
@ -374,11 +374,8 @@ fn strip {
|
|||
fn words {
|
||||
"Takes a string and returns a list of the words in the string. Strips all whitespace."
|
||||
(str as :string) -> {
|
||||
print! (str)
|
||||
let no_punct = strip (str)
|
||||
print! (no_punct)
|
||||
let strs = split (no_punct, " ")
|
||||
print! (strs)
|
||||
fn worder (list, str) -> if empty? (str)
|
||||
then do list > report!
|
||||
else do append (list, str) > report!
|
||||
|
|
Loading…
Reference in New Issue
Block a user