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)
|