X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;ds=inline;f=advent18.hs;h=e7c304fe9f1bf7b77fcf5e59edb08ce013e428b9;hb=9c8d506500086e8584387782bc8978d13ffced02;hp=04ab345e5522feb8001434ab9174c3cffdc8e693;hpb=6c33fcf371ca6d7c86e6cb79cc7de5d8af41181b;p=advent-of-code-16.git

diff --git a/advent18.hs b/advent18.hs
index 04ab345..e7c304f 100644
--- 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