X-Git-Url: https://git.xandkar.net/?p=cellular-automata.git;a=blobdiff_plain;f=polymorphism%2F001%2Fsrc%2Fpolymorphism.ml;fp=polymorphism%2F001%2Fsrc%2Fpolymorphism.ml;h=d292e289a5d05718f96b630ffffbbeb9258bdcb9;hp=ab2cbd5b89e744eaf8fda0b749e3477bbcce82b3;hb=635c1868707b86e336209e0eff475526549a792e;hpb=fd22df899f4fb6b3499f89fdcfd84462d89f40de

diff --git a/polymorphism/001/src/polymorphism.ml b/polymorphism/001/src/polymorphism.ml
index ab2cbd5..d292e28 100644
--- a/polymorphism/001/src/polymorphism.ml
+++ b/polymorphism/001/src/polymorphism.ml
@@ -264,8 +264,8 @@ struct
     Random.int 2 |> State.of_int |> State.to_cell
 
   let count_of_live =
-       List.map       ~f:State.of_cell_state
-    |- List.filter    ~f:State.is_alive
+       List.map    ~f:State.of_cell_state
+    |- List.filter ~f:State.is_alive
     |- List.length
 
   let transition ~self ~neighbors =
@@ -346,8 +346,8 @@ struct
     Random.int 3 |> State.of_int |> State.to_cell
 
   let count_of_burning =
-       List.map       ~f:State.of_cell_state
-    |- List.filter    ~f:State.is_burning
+       List.map    ~f:State.of_cell_state
+    |- List.filter ~f:State.is_burning
     |- List.length
 
   let transition ~self ~neighbors =