8 lines
114 B
Plaintext
8 lines
114 B
Plaintext
type coin = | Head | Tail;
|
|
|
|
let flip = (c : coin) : coin =>
|
|
switch (c) {
|
|
| Head => Tail
|
|
| Tail => Head
|
|
};
|