X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=polymorphic-life%2F001%2Fsrc%2Fpolymorphic_life.ml;fp=polymorphic-life%2F001%2Fsrc%2Fpolymorphic_life.ml;h=b93a79d0e840380e73001bd5297c8107be1fead8;hb=b6599385e0cb497526b94ffa0cf4d881c036e534;hp=544136cf1b13c43e3742624e07c5ecda28aa42aa;hpb=949d1c88ee5df62985ffd56e851544e4713334eb;p=cellular-automata.git

diff --git a/polymorphic-life/001/src/polymorphic_life.ml b/polymorphic-life/001/src/polymorphic_life.ml
index 544136c..b93a79d 100644
--- a/polymorphic-life/001/src/polymorphic_life.ml
+++ b/polymorphic-life/001/src/polymorphic_life.ml
@@ -59,7 +59,7 @@ end
 module type CELL = sig
   type t
 
-  val init : unit -> t
+  val create : unit -> t
 
   val to_string : t -> string
 
@@ -85,7 +85,7 @@ module Conway : CELL = struct
     | D -> " "
     | A -> "o"
 
-  let init () =
+  let create () =
     Random.int 2 |> of_int
 
   let state = to_int
@@ -104,7 +104,7 @@ end
 
 let main rows cols () =
   Random.self_init ();
-  let grid = Matrix.create ~rows ~cols ~data:() |> Matrix.map ~f:Conway.init in
+  let grid = Matrix.create ~rows ~cols ~data:() |> Matrix.map ~f:Conway.create in
   Matrix.print grid ~to_string:Conway.to_string