X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent18f.hs;h=a1cd59b8c86902026f641078e511f93b7e0db409;hb=4ed1e3133856105db52d16c8f6adb60b1ebde920;hp=f643ff54abd004f6501118b8ab935f83bebab93b;hpb=9c8d506500086e8584387782bc8978d13ffced02;p=advent-of-code-16.git

diff --git a/advent18f.hs b/advent18f.hs
index f643ff5..a1cd59b 100644
--- a/advent18f.hs
+++ b/advent18f.hs
@@ -1,4 +1,4 @@
-import Data.List (tails)
+import Data.List (tails, foldl')
 
 -- input = "..^^."
 -- input = ".^^.^.^^^^"
@@ -10,11 +10,11 @@ main = do
         part2
 
 part1 :: IO ()
-part1 = print $ fst $ foldl nextRowFold (countSafe row, row) [2..40]
+part1 = print $ fst $ foldl' nextRowFold (countSafe row, row) [2..40]
     where row = readRow input
 
 part2 :: IO ()
-part2 = print $ fst $ foldl nextRowFold (countSafe row, row) [2..400000]
+part2 = print $ fst $ foldl' nextRowFold (countSafe row, row) [2..400000]
     where row = readRow input
 
 readRow :: String -> [Bool]