From 635c1868707b86e336209e0eff475526549a792e Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Fri, 4 Oct 2013 19:47:30 -0400 Subject: [PATCH] Re-align stuff. --- polymorphism/001/src/polymorphism.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 = -- 2.20.1