Compare commits

..

4 Commits

Author SHA1 Message Date
Scott Richmond
3d0b58e6ed fix bug in at 2024-06-17 13:06:37 -04:00
Scott Richmond
716ecb01c5 0.1.17 2024-06-16 23:56:50 -04:00
Scott Richmond
a703a63502 build 2024-06-16 23:56:46 -04:00
Scott Richmond
bc7da38b3d final touches before computer class 2024-06-16 23:56:29 -04:00
8 changed files with 22 additions and 23 deletions

View File

@ -2,8 +2,7 @@
## Ludus: A friendly, dynamic, functional language
Ludus is a scripting programming language that is designed to be friendly, dynamic, and functional.
This repo currently contains an in-progress reference implementation of an interpreter for the Ludus programming language, using Clojure as a host language.
This repo currently contains a work-in-progress implementation of an interpreter for the Ludus programming language, using [Janet](https://janet-lang.org) as a host language.
Ludus is part of the [_Thinking with Computers_ project](https://alea.ludus.dev/twc/), run by Scott Richmond at the University of Toronto, with collaborator Matt Nish-Lapidus; Bree Lohman and Mynt Marsellus are the RAs for the project. Ludus is our research language, which aspires to be a free translation of Logo for the 2020s.
Here are our design goals:

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'] = 1803884;
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1825664;
function invoke_i(index) {
var sp = stackSave();
try {

Binary file not shown.

4
package-lock.json generated
View File

@ -1,12 +1,12 @@
{
"name": "@ludus/ludus-js-pure",
"version": "0.1.16",
"version": "0.1.17",
"lockfileVersion": 3,
"requires": true,
"packages": {
"": {
"name": "@ludus/ludus-js-pure",
"version": "0.1.16",
"version": "0.1.17",
"license": "GPL-3.0",
"devDependencies": {
"shadow-cljs": "^2.26.0",

View File

@ -1,6 +1,6 @@
{
"name": "@ludus/ludus-js-pure",
"version": "0.1.16",
"version": "0.1.17",
"description": "A Ludus interpreter in a pure JS function.",
"type": "module",
"main": "build/ludus.mjs",

View File

@ -5,7 +5,7 @@
fn and
fn append
fn apply_command
fn assoc & ?
fn assoc
fn atan/2
fn deg/rad
fn dict
@ -15,6 +15,7 @@ fn get
fn join
fn mod
fn neg?
fn print!
fn some?
fn state/call
fn store!
@ -190,8 +191,7 @@ fn list {
fn fold {
"Folds a list."
(f as :fn, xs as :list) -> fold (f, xs, f ())
(f as :fn, xs as :list, root) -> {
loop (root, first (xs), rest (xs)) with {
(f as :fn, xs as :list, root) -> loop (root, first (xs), rest (xs)) with {
(prev, curr, []) -> f (prev, curr)
(prev, curr, remaining) -> recur (
f (prev, curr)
@ -200,7 +200,6 @@ fn fold {
)
}
}
}
& TODO: optimize these with base :conj!
fn map {
@ -375,12 +374,15 @@ 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 list
else append (list, str)
fold (worder, strs, [])
then do list > report!
else do append (list, str) > report!
do fold (worder, strs, []) > report!
}
}
@ -623,7 +625,7 @@ fn max {
& additional list operations now that we have comparitors
fn at {
"Returns the element at index n of a list or tuple, or the byte at index n of a string. Zero-indexed: the first element is at index 0. Returns nil if nothing is found in a list or tuple; returns an empty string if nothing is found in a string."
(xs as :list, n as :number) -> base :nth (xs, n)
(xs as :list, n as :number) -> base :nth (n, xs)
(xs as :tuple, n as :number) -> base :nth (n, xs)
(str as :string, n as :number) -> when {
neg? (n) -> ""

View File

@ -52,9 +52,7 @@
(comment
# (do
(def source `
let myset = ${1, 2, 3, 3, 2}
omit (2, myset)
myset
fold (add, [1, 2, 3])
`)
(def out (-> source
ludus