From 8ff354e23ccd43be884713090185dd4d49c4f462 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Am=C3=A9lia=20Coutard-Sander?= Date: Fri, 13 Dec 2024 00:22:10 +0100 Subject: [PATCH] Bug dans le jeu de la vie --- automata/automata/life.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/automata/automata/life.ml b/automata/automata/life.ml index 570ca4b..69267bf 100644 --- 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 -- 2.51.0