RETREAT

gistfile1.clj

(ns gol.test
  (:require  [clojure.test.check :as tc]
             [clojure.test.check.generators :as gen]
             [clojure.test.check.properties :as prop]))

(def live-cell-with-fewer-than-two-live-neighbors-dies
  (gen/sample (gen/such-that #(and (not= coords1 coords2) )) (gen/return )))

(def two-live-board
  (let [coords1
        coords2]
    (-> board
        assoc-in [coords1] true
        assoc-in [coords2] true)))

(def coord
 (gen/tuple (gen/choose 0 2) (gen/choose 0 2)))

(def board (gen/return (take 3 (repeat [false false false]))))