Initial commit

src/AoC/Day.hs

@@ -0,0 +1,29 @@
+module AoC.Day (Day (..)) where
+
+data Day
+  = D01
+  | D02
+  | D03
+  | D04
+  | D05
+  | D06
+  | D07
+  | D08
+  | D09
+  | D10
+  | D11
+  | D12
+  | D13
+  | D14
+  | D15
+  | D16
+  | D17
+  | D18
+  | D19
+  | D20
+  | D21
+  | D22
+  | D23
+  | D24
+  | D25
+  deriving stock (Read, Show, Eq, Ord, Enum)

src/AoC/Riddle.hs

@@ -0,0 +1,20 @@
+module AoC.Riddle (
+  Riddle (..),
+  Error (..),
+  Solution (..),
+  loadRiddle,
+) where
+
+import AoC.Util (readFileUtf8)
+
+import AoC.Day
+import AoC.Year
+
+type Riddle = Text
+type Error = Text
+type Solution = [Integer]
+
+loadRiddle :: (MonadIO m) => Year -> Day -> m Riddle
+loadRiddle y d = readFileUtf8 inputFile
+ where
+  inputFile = intercalate "/" ["data", show y, show d, "riddle"]

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

src/AoC/Year.hs

@@ -0,0 +1,5 @@
+module AoC.Year (Year (..)) where
+
+data Year
+  = Y0000
+  deriving stock (Read, Show, Eq, Ord, Enum)