mines

My implementation of minesweeper in Haskell.

Example of the mines game

Starting Mines
Mode: RevealMode
Flags 0/20
 C [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,16,17,18,19]
 0 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 1 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 2 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 3 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 4 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 5 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 6 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 7 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 8 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]
 9 [ H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H, H]

...

Mode: RevealMode
Flags 20/20
 C [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,16,17,18,19]
 0 [  ,  ,  , 1, F, 2, F, 1,  , 1, F, 2, F, H, F, 2,  ,  , 1, 1]
 1 [  ,  ,  , 1, 1, 3, 2, 2,  , 1, 1, 2, 1, 3, F, 2,  ,  , 1, F]
 2 [  ,  ,  ,  ,  , 1, F, 1,  ,  ,  ,  ,  , 1, 1, 1,  ,  , 1, 1]
 3 [  ,  ,  , 1, 1, 2, 1, 1,  ,  ,  ,  ,  ,  ,  ,  , 1, 1, 1,  ]
 4 [  ,  ,  , 1, F, 1,  , 1, 2, 3, 2, 2, 1, 1,  ,  , 2, F, 2,  ]
 5 [  ,  ,  , 1, 1, 1,  , 1, F, F, F, 2, F, 1,  , 1, 3, F, 2,  ]
 6 [  ,  ,  ,  ,  ,  ,  , 1, 2, 3, 2, 2, 1, 1,  , 1, F, H, 2, 1]
 7 [  ,  ,  , 1, 1, 1,  ,  ,  ,  ,  ,  ,  ,  , 1, 2, 2, 2, F, 1]
 8 [  ,  ,  , 1, F, 1, 1, 1, 1,  ,  ,  ,  ,  , 1, F, 1, 1, 1, 1]
 9 [  ,  ,  , 1, 1, 1, 1, F, 1,  ,  ,  ,  ,  , 1, 1, 1,  ,  ,  ]

(13, 0)
Cell:  3
Mode: RevealMode
Flags 20/20
 C [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,16,17,18,19]
 0 [  ,  ,  , 1, F, 2, F, 1,  , 1, F, 2, F, 3, F, 2,  ,  , 1, 1]
 1 [  ,  ,  , 1, 1, 3, 2, 2,  , 1, 1, 2, 1, 3, F, 2,  ,  , 1, F]
 2 [  ,  ,  ,  ,  , 1, F, 1,  ,  ,  ,  ,  , 1, 1, 1,  ,  , 1, 1]
 3 [  ,  ,  , 1, 1, 2, 1, 1,  ,  ,  ,  ,  ,  ,  ,  , 1, 1, 1,  ]
 4 [  ,  ,  , 1, F, 1,  , 1, 2, 3, 2, 2, 1, 1,  ,  , 2, F, 2,  ]
 5 [  ,  ,  , 1, 1, 1,  , 1, F, F, F, 2, F, 1,  , 1, 3, F, 2,  ]
 6 [  ,  ,  ,  ,  ,  ,  , 1, 2, 3, 2, 2, 1, 1,  , 1, F, H, 2, 1]
 7 [  ,  ,  , 1, 1, 1,  ,  ,  ,  ,  ,  ,  ,  , 1, 2, 2, 2, F, 1]
 8 [  ,  ,  , 1, F, 1, 1, 1, 1,  ,  ,  ,  ,  , 1, F, 1, 1, 1, 1]
 9 [  ,  ,  , 1, 1, 1, 1, F, 1,  ,  ,  ,  ,  , 1, 1, 1,  ,  ,  ]

(17, 6)
Cell:  3
Mode: RevealMode
Flags 20/20
 C [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,16,17,18,19]
 0 [  ,  ,  , 1, F, 2, F, 1,  , 1, F, 2, F, 3, F, 2,  ,  , 1, 1]
 1 [  ,  ,  , 1, 1, 3, 2, 2,  , 1, 1, 2, 1, 3, F, 2,  ,  , 1, F]
 2 [  ,  ,  ,  ,  , 1, F, 1,  ,  ,  ,  ,  , 1, 1, 1,  ,  , 1, 1]
 3 [  ,  ,  , 1, 1, 2, 1, 1,  ,  ,  ,  ,  ,  ,  ,  , 1, 1, 1,  ]
 4 [  ,  ,  , 1, F, 1,  , 1, 2, 3, 2, 2, 1, 1,  ,  , 2, F, 2,  ]
 5 [  ,  ,  , 1, 1, 1,  , 1, F, F, F, 2, F, 1,  , 1, 3, F, 2,  ]
 6 [  ,  ,  ,  ,  ,  ,  , 1, 2, 3, 2, 2, 1, 1,  , 1, F, 3, 2, 1]
 7 [  ,  ,  , 1, 1, 1,  ,  ,  ,  ,  ,  ,  ,  , 1, 2, 2, 2, F, 1]
 8 [  ,  ,  , 1, F, 1, 1, 1, 1,  ,  ,  ,  ,  , 1, F, 1, 1, 1, 1]
 9 [  ,  ,  , 1, 1, 1, 1, F, 1,  ,  ,  ,  ,  , 1, 1, 1,  ,  ,  ]

You WIN!!!!