Started Clojure game-of-life

gof.clj

(ns conways.test.core
  (:use [conways.core])
  (:use [clojure.test]))

(def world #{})

(defn isALive? [world x y] (get world [x y]) )

(defn setLive [world x y] (conj world [x y]))

(defn willSurvive? [world x y] false)

(defn perm [world] (filter (fn [[x y]] (willSurvive? world x y) )  world))

(deftest emptyWorld 
     (is (not (isALive? world 0 0)))
)

(deftest oneCellWorld 
     (is (isALive? (setLive world 0 0) 0 0))
)

(deftest oneCellWorldDisapears
     (is (not (isALive? (perm (setLive world 0 0)) 0 0)))  
)

(deftest emptyWorld2
  (is (= 0 (count world)))
)

Cant get enough eh?

Well, this one in particular left me craving for more :)