Initial commit

src/AoC/Util.hs

@@ -0,0 +1,11 @@
+-- | Internal module in order to facilitate testability.
+module AoC.Util (solveRiddle, readFileUtf8) where
+
+readFileUtf8 :: (MonadIO m) => FilePath -> m Text
+readFileUtf8 = fmap (decodeUtf8With lenientDecode) . readFileBS
+
+solveRiddle :: (MonadIO m) => FilePath -> (Text -> [Text]) -> m ()
+solveRiddle file solver = do
+  results <- solver <$> readFileUtf8 file
+  forM_ (results `zip` [1 :: Int ..]) $ \(solution, part) ->
+    putTextLn $ "  solution to part-" <> show part <> ": " <> solution