-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.hs
32 lines (30 loc) · 1014 Bytes
/
Main.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
import Chess
main :: IO ()
main = do
let game = Game {gBoard = initializeBoard, gTurn = White, gLog = []}
putStrLn $ show
$ move (F,8) (B,4)
$ move (A,5) (B,6)
$ move (E,7) (E,6)
$ move (A,4) (A,5)
$ move (B,8) (C,6)
$ move (A,3) (A,4)
$ move (B,7) (B,5)
$ move (D,1) (E,2)
$ move (E,6) (E,5)
$ move (F,3) (E,5)
$ move (D,6) (E,6)
$ move (A,2) (A,3)
$ move (D,5) (C,3)
$ move (G,1) (F,3)
$ move (D,8) (D,6)
$ move (G,2) (H,3)
$ move (C,8) (H,3)
$ move (F,1) (C,4)
$ move (F,6) (D,5)
$ move (E,4) (D,5)
$ move (G,8) (F,6)
$ move (E,2) (E,4)
$ move (D,7) (D,5)
$ move (D,2) (D,4)
game