One-dimensional cellular automata: Difference between revisions

m
Line 2,548:
 
main :: IO ()
main = do
g <- newStdGen
>>= ( mapM_ putStrLn . lahmahgaan $ oersoep</lang>
let oersoep = map ("_#" !!) . take 36 $ randomRs (0, 1) g
. map ("_#" !!)
mapM_ putStrLn . lahmahgaan $ oersoep</lang>
. take 36
let oersoep = map ("_#" !!) . take 36 $ . randomRs (0, 1) g
)</lang>
{{Out}}
For example:
9,655

edits