Game of Life in 8 lines of Clojure

gistfile1.clj

(defn neighbors-of [cell]
  (set (for [dx [-1 0 1] dy [-1 0 1] :when (not (= [dx dy] [0 0]))]
    [(+ dx (first cell)) (+ dy (second cell))])))

(defn alive? [[cell freqs] world]
  (or (and (= 2 freqs) (contains? world cell)) (= 3 freqs)))

(defn tick [world]
  (let [frequencies (frequencies (reduce #(concat %1 (neighbors-of %2)) [] world))]
    (set (keys (filter #(alive? % world) frequencies)))))

(defn neighbors-of [cell]
  (for [dx [-1 0 1] dy [-1 0 1] :when (not (= [dx dy] [0 0]))]
         (vec (map + [dx dy] cell))))

(defn alive? [world [cell freqs]]
  (when (or (and (= 2 freqs) (contains? world cell)) (= 3 freqs)) cell))

(defn tick [world]
  (let [fr (frequencies (mapcat neighbors-of world))]
    (set (keep (partial alive? world) fr))))

Yeah.... That's better. I prefer that alive? returns a boolean though.

…

On May 3, 2011, at 4:12 PM, avysk wrote: ``` (defn neighbors-of [cell] [for [dx [-1 0 1] dy [-1 0 1] :when (not (= [dx dy] [0 0]))] (map + [dx dy] cell)]) (defn alive? [world [cell freqs]] (when (or (and (= 2 freqs) (contains? world cell)) (= 3 freqs)) cell)) (defn tick [world] (let [fr (frequencies (mapcat neighbors-of world))] (set (keep (partial alive? world) fr)))) ``` ## Reply to this email directly or view it on GitHub: https://gist.github.com/950574

Well, you can move when -- keep #(when (alive? world %) %)
Or rename alive? to something like grow-cell :-)