Commit ddb410af authored by Adrian Kosmaczewski's avatar Adrian Kosmaczewski

First working version of the evolve algorithm

parent b2e947fd
......@@ -31,8 +31,7 @@
(if (gethash current-coord cells)
(let ((cell (gethash current-coord cells)))
(if (equalp cell 'alive)
(progn
(setq count (+ 1 count))))))))))
(setq count (+ 1 count)))))))))
(if (equalp value 'alive)
(if (or (= 2 count) (= 3 count))
(setq alive-cells (append (list key) alive-cells)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment