From 3ac904c025187fa279cb311a7fa0ce668c85fa4c Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Sun, 29 Sep 2013 11:40:37 -0400 Subject: [PATCH] Align stuff. --- polymorphism/001/src/polymorphism.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/polymorphism/001/src/polymorphism.ml b/polymorphism/001/src/polymorphism.ml index 6cf2d8e..aae480b 100644 --- a/polymorphism/001/src/polymorphism.ml +++ b/polymorphism/001/src/polymorphism.ml @@ -288,7 +288,7 @@ module ForestFire : RULE = struct Random.int 3 |> state_of_int |> cell_of_state let f = 0.000001 (* Probability of spontaneous ignition *) - let p = 0.1 (* Probability of spontaneous growth *) + let p = 0.1 (* Probability of spontaneous growth *) let is_probable = function | probability when (Random.float 1.0) <= probability -> true -- 2.20.1