20 lines
502 B
Haskell
20 lines
502 B
Haskell
import Games
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
print $ game 1 <> game 1
|
|
print $ game 2
|
|
print $ leq zero one
|
|
print $ leq zero zero
|
|
print $ leq one two
|
|
print $ leq zero two
|
|
print $ leq (nimber 1) zero
|
|
print $ leq zero (nimber 1)
|
|
print $ eq (nimber 1 <> nimber 1) zero
|
|
print $ eq (nimber 5 <> nimber 3) $ nimber 6
|
|
print $ eq (nimber 5 <> nimber 1) $ nimber 4
|
|
print $ eq (game 1 <> game 4) $ game 5
|
|
print $ eq zero (add (neg (game 10)) (game 10))
|
|
print $ eq (nimber 5) (neg $ nimber 5)
|