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 _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 ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5); 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) { function invoke_i(index) {
var sp = stackSave(); var sp = stackSave();
try { try {

Binary file not shown.

View File

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

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, [])
} }
} }

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