7 lines
103 B
Plaintext
7 lines
103 B
Plaintext
type coin = Head | Tail
|
|
|
|
let flip (c : coin) : coin =
|
|
match c with
|
|
Head -> Tail
|
|
| Tail -> Head
|