Compare commits

...

2 Commits

Author SHA1 Message Date
Scott Richmond
92a1ee9010 fix mod error 2024-06-07 17:25:46 -04:00
Scott Richmond
9a3217b2c9 0.1.11 2024-06-07 17:17:00 -04:00
5 changed files with 12 additions and 15 deletions

4
package-lock.json generated
View File

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

View File

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

View File

@ -879,7 +879,7 @@ fn atan/2 {
fn mod { fn mod {
"Returns the modulus of num and div. Truncates towards negative infinity." "Returns the modulus of num and div. Truncates towards negative infinity."
(num as :number, y as :number) -> base :mod (num, div) (num as :number, div as :number) -> base :mod (num, div)
} }
fn square { fn square {

View File

@ -221,6 +221,12 @@
(defn store! [b x] (set (b :^value) x)) (defn store! [b x] (set (b :^value) x))
(defn mod [x y]
(print "mod!")
(pp x)
(pp y)
(% x y))
(def ctx { (def ctx {
"print!" print! "print!" print!
"prn" prn "prn" prn
@ -232,7 +238,7 @@
"sub" - "sub" -
"mult" * "mult" *
"div" / "div" /
"mod" % "mod" mod
"gt" > "gt" >
"gte" >= "gte" >=
"lt" < "lt" <

View File

@ -56,14 +56,5 @@
# (comment # (comment
(do (do
(-> (ludus ` (-> (ludus `
penup! () doc! (mod)
let s = turtle_state ()
pendown! ()
forward! (100)
rt! (0.25)
fd! (100)
load_turtle_state! (s)
pendown! ()
lt! (0.25)
fd! (50)
`))) `)))