JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

sand.flan asks for length

Browse Source 
Two sites, and the second is the subtle one: the let binds a local named
length from (length coll), which reads because a sequential let checks an
initialiser before the name it binds exists. That was the reason for the
rename -- len is a variable now.
This commit is contained in:
Joseph Ferano 2026-09-21 12:01:34 +07:00
parent 970d5ac38f
commit 8eaeb992d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sand.flan
View File

@ -28,7 +28,7 @@
(defn insertion-sort [coll [$t]] () (defn insertion-sort [coll [$t]] ()
{:where (ordered? $t)} {:where (ordered? $t)}
(let [i 1 (let [i 1
length (len coll)] length (length coll)]
(while (and (< i length)) (while (and (< i length))
(let [j i] (let [j i]
(while (and (> j 0) (while (and (> j 0)
@ -52,7 +52,7 @@
(set velocity (zeroed))) (set velocity (zeroed)))
(defn next-color [] () (defn next-color [] ()
(set current-color (% (+ current-color 1) (len colors)))) (set current-color (% (+ current-color 1) (length colors))))
(defn paint-at [row i32 col i32] () (defn paint-at [row i32 col i32] ()
(let [half (/ brush-size 2)] (let [half (/ brush-size 2)]