gistfile1.clj

(def *horizontal-blinker* [ [0,1] [1,1], [2,1] ])

(def *vertical-blinker*   [        [1,2]
				   [1,1]
				   [1,0]  ])

(example "of blinkers blinking"
    (next-world horizontal-blinker) =>? vertical-blinker
    (next-world vertical-blinker) =>? horizontal-blinker

    (pipeline (next-world ...life...) => ...a-next-world...
	      because

	      (relevant-neighborhood ...life...) => ...life-surrounded-by-dead-cells...
	      (propagate ...life-surrounded-by-dead-cells...) => ...live-and-dead-cells...
	      (discard-death ...live-and-dead-cells...) => ...a-next-world...
    )
)