mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Update game of life example.

This commit is contained in:
Calvin Rose 2019-02-17 11:20:24 -05:00
parent 6d5ff43de7
commit 33087fe9de
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/life.janet
View File

@ -4,11 +4,11 @@
(seq [x :range [-1 2] (seq [x :range [-1 2]
y :range [-1 2] y :range [-1 2]
:when (not (and (zero? x) (zero? y)))] :when (not (and (zero? x) (zero? y)))]
(tuple x y))) [x y]))
(defn- neighbors (defn- neighbors
[[x y]] [[x y]]
(map (fn [[x1 y1]] (tuple (+ x x1) (+ y y1))) window)) (map (fn [[x1 y1]] [(+ x x1) (+ y y1)]) window))
(defn tick (defn tick
"Get the next state in the Game Of Life." "Get the next state in the Game Of Life."
@ -28,7 +28,7 @@
(loop [x :range [x1 (+ 1 x2)] (loop [x :range [x1 (+ 1 x2)]
:after (print) :after (print)
y :range [y1 (+ 1 y2)]] y :range [y1 (+ 1 y2)]]
(file/write stdout (if (get cellset (tuple x y)) "X " ". "))) (file/write stdout (if (get cellset [x y]) "X " ". ")))
(print)) (print))
# #