Working version

diff --git a/advent18.hs b/advent18.hs
index 04ab345e5522feb8001434ab9174c3cffdc8e693..a96251a04dc7c511382adcc870ce99a632b8340e 100644 (file)
--- a/advent18.hs
+++ b/advent18.hs
@@ -4,13 +4,11 @@ import Data.List (iterate, tails)
 -- input = ".^^.^.^^^^"
 input = "^.^^^.^..^....^^....^^^^.^^.^...^^.^.^^.^^.^^..^.^...^.^..^.^^.^..^.....^^^.^.^^^..^^...^^^...^...^."
 
-
 main :: IO ()
 main = do 
         part1 
         part2
 
-
 part1 :: IO ()
 -- part1 = putStrLn $ unlines $ map (showRow) $ take 10 $ iterate nextRow $ readRow input
 part1 = print $ length $ filter (not) $ concat $ take 40 $ iterate nextRow $ readRow input