]> git.ameliathe1st.gay Git - cells.git/commitdiff
Lettres plus pratiques en mode insertion
authorAmélia Coutard-Sander <git@ameliathe1st.gay>
Sun, 12 Jan 2025 02:34:58 +0000 (03:34 +0100)
committerAmélia Coutard-Sander <git@ameliathe1st.gay>
Sun, 12 Jan 2025 02:34:58 +0000 (03:34 +0100)
automata/automata/brain.ml
automata/automata/life.ml
automata/automata/maze.ml
automata/automata/wireworld.ml

index 10e0d44571e3ca2f95b89205f125d700b2fa9abd..8683b58d7124b42fd9845b5894c8b6e9ab6a651d 100644 (file)
@@ -45,12 +45,12 @@ let color = function
 let default = Off
 
 let of_char = function
-        | 'D' -> Some Off
-        | 'A' -> Some On
-        | 'Y' -> Some Dying
+        | 'd' -> Some Off
+        | 'b' -> Some On
+        | 'a' -> Some Dying
         | _ -> None
 
 let to_char = function
-        | Off -> 'D'
-        | On -> 'A'
-        | Dying -> 'Y'
+        | Off -> 'd'
+        | On -> 'b'
+        | Dying -> 'a'
index 85d64519d5c1bab580d3daf29326ca87c6e28948..acd0926e2afe347b3362f6c64b5dd3b0f1c2f601 100644 (file)
@@ -40,10 +40,10 @@ let color = function
 let default = Dead
 
 let of_char = function
-        | 'D' -> Some Dead
-        | 'A' -> Some Alive
+        | 'd' -> Some Dead
+        | 'a' -> Some Alive
         | _ -> None
 
 let to_char = function
-        | Dead -> 'D'
-        | Alive -> 'A'
+        | Dead -> 'd'
+        | Alive -> 'a'
index 69f2af1308a7cd5bd71869fe4c5036327b6e1d11..9bbb0d457413604db75a5bbe40067f6a85210f20 100644 (file)
@@ -40,10 +40,10 @@ let color = function
 let default = Sol
 
 let of_char = function
-        | 'S' -> Some Sol
-        | 'M' -> Some Mur
+        | 's' -> Some Sol
+        | 'm' -> Some Mur
         | _ -> None
 
 let to_char = function
-        | Sol -> 'S'
-        | Mur -> 'M'
+        | Sol -> 's'
+        | Mur -> 'm'
index fdd5f70c630ecd5d862970ede20ade252046f74a..e45d357c64784c772de4a10b5db2303ea9a24cc4 100644 (file)
@@ -47,14 +47,14 @@ let color = function
 let default = Empty
 
 let of_char = function
-        | '0' -> Some Empty
-        | 'C' -> Some Conductor
-        | 'H' -> Some Head
-        | 'T' -> Some Tail
+        | 'v' -> Some Empty
+        | 'c' -> Some Conductor
+        | 'h' -> Some Head
+        | 't' -> Some Tail
         | _ -> None
 
 let to_char = function
-        | Empty -> '0'
-        | Conductor -> 'C'
-        | Head -> 'H'
-        | Tail -> 'T'
+        | Empty -> 'v'
+        | Conductor -> 'c'
+        | Head -> 'h'
+        | Tail -> 't'