Initialise day 3

haskell/Main.hs

@@ -7,6 +7,7 @@ import Data.Text.IO qualified as T
 import Puzzle
 import Puzzles.Day1 qualified as Day1
 import Puzzles.Day2 qualified as Day2
+import Puzzles.Day3 qualified as Day3
 import Test.Tasty
 import Test.Tasty.Golden (goldenVsString)
 import Test.Tasty.Ingredients.ConsoleReporter
@@ -21,6 +22,7 @@ main =
             testGroup t $
                 [ Day1.puzzle
                 , Day2.puzzle
+                , Day3.puzzle
                 ]
                     <&> \Puzzle{number, parser, parts} ->
                         let

haskell/Puzzles/Day3.hs

@@ -0,0 +1,13 @@
+module Puzzles.Day3 (puzzle) where
+
+import Puzzle
+
+puzzle :: Puzzle
+puzzle =
+    Puzzle
+        { number = 3
+        , parser = _
+        , parts =
+            [ _
+            ]
+        }

haskell/aoc.cabal

@@ -12,6 +12,7 @@ executable aoc
         Puzzle
         Puzzles.Day1
         Puzzles.Day2
+        Puzzles.Day3
     default-language: GHC2024
     default-extensions:
         BlockArguments

inputs/examples/3

@@ -0,0 +1,4 @@
+987654321111111
+811111111111119
+234234234234278
+818181911112111

inputs/private

@@ -1 +1 @@
-Subproject commit 6de81f9ec54f2f5ecdfec98ab4e8a46e0bc76b0f
+Subproject commit 69a0d6cdd7aa47dedb9b6653a27bd5e717d766fb

outputs/examples/3/1

@@ -0,0 +1 @@
+357