phfroidmont/minesweeper-haskell
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Place bombs randomly

Browse source
This commit is contained in:
Paul-Henri Froidmont 2019-12-04 00:13:57 +01:00 • committed by Paul-Henri Froidmont
parent 0b20ec98e3
commit fd1aef44ef
4 changed files with 36 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
app/Main.hs
View file

@ -1,12 +1,15 @@
module Main where
import Lib
import System.Environment
import System.Random
main :: IO ()
main =
putStrLn $
printBoard
[ [Bomb Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 1 Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 0 Revealed, Value 0 Revealed, Value 0 Revealed]
]
main = do
args <- getArgs
let boardWidth = read (head args)
boardLength = read (args !! 1)
bombs = read (args !! 2)
generator <- newStdGen
putStrLn . printBoard . revealAll . createBoard boardWidth boardLength $
generateRandomCoordinates (boardWidth-1) (boardLength-1) bombs generator