|
|
@@ -11,6 +11,8 @@ import Data.Universe.Helpers ( cartesianProduct ) -- Need to be installed : `cab
|
|
|
|
|
|
import Data.List ( foldl1' )
|
|
|
|
|
|
+import Systeme.IO
|
|
|
+
|
|
|
-- Types
|
|
|
|
|
|
data Cell = Covered Int Bool Bool -- number of bombs around ; has bomb ; has flag
|
|
|
@@ -145,6 +147,23 @@ loop i j n b@(Grid xs)
|
|
|
'u' -> loop i j n (uncover (i, j) b) -- uncover tile
|
|
|
otherwise -> loop i j n b -- do nothing
|
|
|
|
|
|
+main::IO()
|
|
|
+main = do
|
|
|
+ hSetBuffering stdin NoBuffering -- disable the need to press enter
|
|
|
+ hSetEcho stdin False -- dont print input in terminal
|
|
|
+
|
|
|
+ -- random sequences
|
|
|
+ sg <- newStdGen
|
|
|
+ sg' <- newStdGen
|
|
|
+
|
|
|
+ -- parameters
|
|
|
+ let nmines = 5
|
|
|
+ let h = 7
|
|
|
+ let w = 10
|
|
|
+
|
|
|
+ ... -- create grid, add mines, update neighbours
|
|
|
+ loop ... -- start loop
|
|
|
+
|
|
|
|
|
|
-- Testing data
|
|
|
|
