gol.hs

import System.Random
import Data.List.Split

randomCells :: Int -> StdGen -> [Int]
randomCells size gen = take size $ randomRs (0, 1) gen

createGeneration :: [Int] -> Int -> [[Int]]
createGeneration cells width = splitEvery width cells

main :: IO() -- declare type signature
main =
    let cells = randomCells 12 (mkStdGen 123)
     in print (createGeneration cells 4)