Bug dans le jeu de la vie

diff --git a/automata/automata/life.ml b/automata/automata/life.ml
index 13997308b129bab34d052fcdf503fd99f970d62f..37df929228915e9ed3fa3fa192365d45f8362ba4 100644 (file)
--- a/automata/automata/life.ml
+++ b/automata/automata/life.ml
@@ -21,7 +21,7 @@ let neighbours = [(-1, -1); (-1, 0); (-1, 1); (0, -1); (0, 1); (1, -1); (1, 0);
 
 let transition l c =
         let n = List.length (List.filter (( = ) Alive) l) in
-        if n <= 2 || n >= 4 then Dead else if n == 3 then Alive else c
+        if n < 2 || n > 3 then Dead else if n == 3 then Alive else c
 
 let default = Dead