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))))