let f = 0.000001 (* Probability of spontaneous ignition *)
let p = 0.1 (* Probability of spontaneous growth *)
let f = 0.000001 (* Probability of spontaneous ignition *)
let p = 0.1 (* Probability of spontaneous growth *)
let next state ~burning_neighbors =
match state, burning_neighbors with
let next state ~burning_neighbors =
match state, burning_neighbors with