Compare commits

..

3 Commits

Author SHA1 Message Date
Scott Richmond
8eed4145db fix words 2024-06-17 13:29:08 -04:00
Scott Richmond
848ba249ca add commit to build 2024-06-17 13:15:33 -04:00
Scott Richmond
d057678822 build 2024-06-17 13:12:37 -04:00
6 changed files with 6 additions and 5 deletions

Binary file not shown.

View File

@ -6489,7 +6489,7 @@ var __emscripten_stack_alloc = (a0) => (__emscripten_stack_alloc = wasmExports['
var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1827268;
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1826680;
function invoke_i(index) {
var sp = stackSave();
try {

Binary file not shown.

View File

@ -28,3 +28,4 @@ build:
rm build/ludus.jimage
janet -c src/ludus.janet build/ludus.jimage
cd build && just build
git commit -am "build"

View File

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

View File

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