home
/
code
/
cellular-automata.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Colorize alive Life cells with white.
[cellular-automata.git]
/
polymorphism
/
001
/
src
/
polymorphism.ml
diff --git
a/polymorphism/001/src/polymorphism.ml
b/polymorphism/001/src/polymorphism.ml
index
3c90972
..
f132fd7
100644
(file)
--- a/
polymorphism/001/src/polymorphism.ml
+++ b/
polymorphism/001/src/polymorphism.ml
@@
-4,6
+4,7
@@
open Core.Std
module Terminal : sig
type color = [ `green
| `red
module Terminal : sig
type color = [ `green
| `red
+ | `white
]
val string_with_color : string -> color -> string
]
val string_with_color : string -> color -> string
@@
-14,6
+15,7
@@
module Terminal : sig
end = struct
type color = [ `green
| `red
end = struct
type color = [ `green
| `red
+ | `white
]
let ansi_code_clear = "\027[2J" (* Clear screen *)
]
let ansi_code_clear = "\027[2J" (* Clear screen *)
@@
-22,6
+24,7
@@
end = struct
let string_of_color = function
| `green -> "\027[0;32m"
| `red -> "\027[1;31m"
let string_of_color = function
| `green -> "\027[0;32m"
| `red -> "\027[1;31m"
+ | `white -> "\027[1;37m"
let string_with_color s c =
sprintf "%s%s\027[0m" (string_of_color c) s
let string_with_color s c =
sprintf "%s%s\027[0m" (string_of_color c) s
@@
-213,7
+216,7
@@
module Life : RULE = struct
let pheno_of_state : (state -> PhenoType.t) = function
| D -> PhenoType.create ' ' None
let pheno_of_state : (state -> PhenoType.t) = function
| D -> PhenoType.create ' ' None
- | A -> PhenoType.create 'o'
None
+ | A -> PhenoType.create 'o'
(Some `white)
let int_of_msg msg =
msg |> state_of_string |> int_of_state
let int_of_msg msg =
msg |> state_of_string |> int_of_state
This page took
0.03472 seconds
and
4
git commands to generate.