From: Siraaj Khandkar Date: Sun, 29 Sep 2013 15:40:37 +0000 (-0400) Subject: Align stuff. X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=3ac904c025187fa279cb311a7fa0ce668c85fa4c;p=cellular-automata.git Align stuff. --- 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