From 0d6f78335b05b14736c63234d7f15a9cf2420b1a Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Wed, 25 Sep 2013 17:29:39 -0400 Subject: [PATCH] Implement Conway's Life cell. --- polymorphic-life/001/src/polymorphic_life.ml | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/polymorphic-life/001/src/polymorphic_life.ml b/polymorphic-life/001/src/polymorphic_life.ml index ca6d819..9a9163e 100644 --- a/polymorphic-life/001/src/polymorphic_life.ml +++ b/polymorphic-life/001/src/polymorphic_life.ml @@ -56,6 +56,24 @@ module type CELL = sig end +module Conway : CELL = struct + type t = D | A + + let state = function + | D -> 0 + | A -> 1 + + let react t ~states = + let live_neighbors = List.fold_left states ~init:0 ~f:(+) in + match t with + | A when live_neighbors < 2 -> D + | A when live_neighbors < 4 -> A + | A when live_neighbors > 3 -> D + | D when live_neighbors = 3 -> A + | t -> t +end + + let main () = let pool = Matrix.create ~rows:5 ~cols:5 ~data:() in Matrix.iter pool ~f:( -- 2.20.1