travisshears/time_guesser
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

reduce chars

Browse source
This commit is contained in:
Travis Shears 2026-05-27 19:38:16 +01:00
parent ac70953ae9
commit 66c5827ed7
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
3 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
bootstrap.fnl
View file

@ -1,5 +1,5 @@
(local m (require "main.min.fnl")) (local m (require "main.min.fnl"))
(set _G.setup m.setup) (set _G.setup m.s)
(set _G.draw m.draw) (set _G.draw m.d)
(set _G.keyPressed m.key-pressed) (set _G.keyPressed m.k)

8
main.fnl
View file

@ -9,7 +9,7 @@
(set yellow (color 255 228 112)) (set yellow (color 255 228 112))
(set dark (color 64 56 48))) (set dark (color 64 56 48)))
(local steps (* 24 60)) (local steps (* 24 60))
(var step 0) (var step 0)
(lambda lpad [num] (if (< num 10) (.. "0" num) num)) (lambda lpad [num] (if (< num 10) (.. "0" num) num))
@ -40,7 +40,7 @@
(when won (text "YOU WIN" 100 400))) (when won (text "YOU WIN" 100 400)))
{ {
:setup setup :s setup
:draw draw :d draw
:key-pressed key-pressed :k key-pressed
} }

2
minify.bb
View file

@ -58,7 +58,7 @@
(def built-ins #{"fn" "local" "λ" "lambda" "require" "let" "+" "-" "/" "*" "<" ">" "<=" ">=" "not=" ".." (def built-ins #{"fn" "local" "λ" "lambda" "require" "let" "+" "-" "/" "*" "<" ">" "<=" ">=" "not=" ".."
"var" "if" "when" "and" "or" "not" "do" "set" "each" "for" "while" "var" "if" "when" "and" "or" "not" "do" "set" "each" "for" "while"
"true" "$1" "math.floor" "floor" "false" "nil" "size" "textSize" "background" "text" "random" "key" "true" "$1" "math.floor" "floor" "false" "nil" "size" "textSize" "background" "text" "random" "key"
":setup" ":draw" ":key-pressed" ":L5" "map" "color" "lerpColor"}) ":s" ":d" ":k" ":L5" "map" "color" "lerpColor"})
(defn collect-bindings [tokens] (defn collect-bindings [tokens]
(reduce (fn [acc token] (reduce (fn [acc token]