mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
18 lines
239 B
Plaintext
18 lines
239 B
Plaintext
-- board piece
|
|
structural type P = X | O | E
|
|
|
|
structural type Board = Board P P P P P P P P P
|
|
|
|
use Board Board
|
|
use P O X E
|
|
|
|
whatevs a b c = a
|
|
|
|
b = Board X O X O X X O E X
|
|
x = 1
|
|
y = 2
|
|
z = 3
|
|
|
|
ex = match b with
|
|
Board a b c d e f g h i -> a
|