Ordre plus intuitif pour les cellules du Cerveau

diff --git a/automata/automata/brain.ml b/automata/automata/brain.ml
index fbd5efc160c6d82baee2ae5ed263a56a46c3ba5a..0429a7045e40f920f7ebd69afdb1214702693f9f 100644 (file)
--- a/automata/automata/brain.ml
+++ b/automata/automata/brain.ml
@@ -15,7 +15,7 @@
 
 let name = "Le Cerveau de Brian"
 
-type t = Off | Dying | On
+type t = Off | On | Dying
 
 let neighbours = [(-1, -1); (-1, 0); (-1, 1); (0, -1); (0, 1); (1, -1); (1, 0); (1, 1)]
 
@@ -23,22 +23,22 @@ let transition l = function
         | Off ->
                 let n = List.length (List.filter (( = ) On) l) in
                 if n = 2 then On else Off
-        | Dying -> Off
         | On -> Dying
+        | Dying -> Off
 
 let default = Off
 
 let prev = function
-        | Off -> On
-        | Dying -> Off
-        | On -> Dying
-
-let next = function
         | Off -> Dying
-        | Dying -> On
         | On -> Off
+        | Dying -> On
+
+let next = function
+        | Off -> On
+        | On -> Dying
+        | Dying -> Off
 
 let color = function
         | Off -> ('\x00', '\x00', '\x1F')
-        | Dying -> ('\x00', '\x00', '\xFF')
         | On -> ('\xFF', '\xFF', '\xFF')
+        | Dying -> ('\x00', '\x00', '\xFF')