gistfile1.clj

(know "rules that determine the life or death of a cell in the sucessor generation"
    (successor ...cell...) =means=> (killed ...cell...)
      (provided  ; underpopulation
        (living? ...cell...) => true
	(living-neighbor-count ...cell...) =from=> [0, 1])
      (or ; overpopulation
        (living? ...cell...) => true
	(living-neighbor-count ...cell...) =from=> [4 ,,, 8]) 
      (or ; not enough cells to bring to life
        (living? ...cell...) => false
	(living-neighbor-count ...cell...) =from=> [0,,,2]) ; 
      (or ; too many cells to bring to life
        (living? ...cell...) => false
	(living-neighbor-count ...cell...) =from=> [4,,,8]) ; 

    (successor ...cell...) =means=> (vivified ...cell...)
      (provided
         (living? ...cell...) => true
	 (living-neighbor-count ...cell...) =from=> [2, 3])
      (or
         (living? ...cell...) => false
         (living-neighbor-count ...cell...) => 3)
)