Beginning of Conway's Game of Life in Clojure

gistfile1.clj

(ns GameOfLife.core)

(defn next-state [neighbours state]
  (cond 
    (= :dying state) :dead
    (and (= :alive state)
         (or (= 2 neighbours)
             (= 3 neighbours))) :alive
    :else :dying))
    

(defn is-within-one? [a b]
  (<= (Math/abs (- a b)) 1))

(defn is-in-range? [coord cell]
    (and (is-within-one? (:x coord) (:x cell)) 
         (is-within-one? (:y coord) (:y cell)) 
         (is-within-one? (:z coord) (:z cell)))) 

(defn is-neighbour? [othercell cell]
  (let [other_coords (:coords othercell) cell_coords (:coords cell)]
  (and (is-in-range? other_coords cell_coords)
         (not (= other_coords cell_coords)))))

(defn living-neighbours [cell world]
  (filter #(and (is-neighbour? % cell) (= (:state %) :alive)) world))

(defn evolve [world]
  (filter #(not (= (:state %) :dead))
    (map #(assoc % :state (next-state (count (living-neighbours % world)) (:state %))) world)))