save

diff --git a/day6/Day6.hs b/day6/Day6.hs
index a073bad..75d8e36 100644 (file)
--- a/day6/Day6.hs
+++ b/day6/Day6.hs
@@ -153,6 +153,7 @@ fishesL ages n
 readInput :: FilePath -> IO [Int]
 readInput = fmap (map read . wordsBy (== ',')) . readFile
 
+-- FIXME: Too slow. Use Vector? Or add strictness?
 runF1 :: FilePath -> IO ()
 runF1 fp = do
     ages <- readInput fp