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

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