game-of-life (empty) → 0.1.0.0

raw patch · 3 files changed

+100/−0 lines, 3 filesdep +arraydep +basedep +hscursessetup-changed

Dependencies added: array, base, hscurses, random, text

Files

• Main.hs +69/−0
• Setup.hs +2/−0
• game-of-life.cabal +29/−0

@@ -0,0 +1,69 @@+module Main where++import Simulation++import qualified UI.HSCurses.Curses as Curses+import Control.Monad(replicateM)+import Control.Concurrent(threadDelay)+import System.Random+import Data.List(intersperse)+import Data.Array++delay :: Int+delay = 0+density :: Float+density = 0.375++main :: IO ()+main = do+  window <- Curses.initScr+  Curses.raw True+  _ <- Curses.cursSet Curses.CursorInvisible+  (rows, cols) <- Curses.scrSize+  randomBoard (rows) (cols-1) >>= life 1000 window+  Curses.resetParams+  Curses.endWin++life :: Int -> Curses.Window -> Board -> IO ()+life 0 _ _ = return ()+life gens window board = do+    _ <- drawBoard board window+    Curses.timeout delay+    Curses.getch >>= \ch -> case Curses.decodeKey ch of +      Curses.KeyUnknown _ -> life (gens-1) window (step board)+      _                   -> return ()++drawBoard :: Board -> Curses.Window -> IO ()+drawBoard board window = do+  Curses.move 0 0+  Curses.wAddStr window (boardRep board)+  Curses.wRefresh window++boardRep :: Board -> String+boardRep board = concat . intersperse "\n" $ [rowStrings r | r <- [0..rs-1]]+  where+  rowStrings :: Int -> String+  rowStrings r = concat [show (grid ! r ! c) | c <- [0..cs-1]]+  rs = bRows board +  cs = bCols board +  grid = bGrid board++randomBoard :: Int -> Int -> IO Board+randomBoard rows cols = randomGrid rows cols >>= +                                \grid -> return $ Board grid rows cols++randomGrid :: Int -> Int -> IO Grid+randomGrid rs cs = replicateM cs randomRow >>= \rows -> return $ listArray (0, rs-1) rows+  where+  randomRow :: IO (Array Int State)+  randomRow = randomListOfCells >>= \cells -> return $ listArray (0, cs-1) cells++  randomListOfCells :: IO [State]+  randomListOfCells = replicateM cs randomIO >>= return . map randomCell++  randomCell :: Float -> State+  randomCell r+    | r < density  = Alive+    | r >= density = Dead+    | otherwise    = Dead+

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,29 @@+-- Initial game-of-life.cabal generated by cabal init.  For further+--  documentation, see http://haskell.org/cabal/users-guide/++name:                game-of-life+version:             0.1.0.0+synopsis:            Conway's Game of Life+-- description:         +license:             MIT+-- license-file:        LICENSE+author:              Marcus Buffett+maintainer:          marcusbuffett@me.com+-- copyright:           +-- category:            +build-type:          Simple+-- extra-source-files:  +cabal-version:       >=1.10++executable game-of-life+  main-is:             Main.hs+  -- other-modules:       +  -- other-extensions:    +  build-depends:       base >=4.7 && <4.8,+                       random,+                       hscurses,+                       array,+                       text+  -- hs-source-dirs:      +  default-language:    Haskell2010+  ghc-options:         -O2