home
/
code
/
cellular-automata.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Align stuff.
[cellular-automata.git]
/
polymorphism
/
001
/
src
/
polymorphism.ml
diff --git
a/polymorphism/001/src/polymorphism.ml
b/polymorphism/001/src/polymorphism.ml
index
6cf2d8e
..
aae480b
100644
(file)
--- 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 *)
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
let is_probable = function
| probability when (Random.float 1.0) <= probability -> true
This page took
0.024954 seconds
and
4
git commands to generate.