Strict fold

[advent-of-code-16.git] / advent18.hs

diff --git a/advent18.hs b/advent18.hs
index 04ab345e5522feb8001434ab9174c3cffdc8e693..e7c304fe9f1bf7b77fcf5e59edb08ce013e428b9 100644 (file)
--- a/advent18.hs
+++ b/advent18.hs
@@ -1,16 +1,14 @@
-import Data.List (iterate, tails)
+import Data.List (tails)
 
 -- input = "..^^."
 -- 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