From 16349685bab17391bd39eb6631a836a781f2a02c Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Tue, 2 Dec 2025 02:07:41 +0000
Subject: [PATCH] Refactor in to parts

---
 app/Main.hs | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 18351bb..3971f6a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -11,13 +11,16 @@ main = do
 runPuzzle :: Puzzle a -> IO ()
 runPuzzle p = do
     Just input <- p.parse <$> readFile ("inputs/examples/" <> show p.number)
-    putStrLn $ p.part1 input
-    putStrLn $ p.part2 input
+    putStrLn $ p.part1.solve input
+    putStrLn $ p.part2.solve input
 data Puzzle input = Puzzle
     { number :: Word
     , parse :: String -> Maybe input
-    , part1 :: input -> String
-    , part2 :: input -> String
+    , part1 :: Part input
+    , part2 :: Part input
+    }
+data Part input = Part
+    { solve :: input -> String
     }
 
 puzzle1 :: Puzzle [(Direction, Inc)]
@@ -32,14 +35,15 @@ puzzle1 =
                     _ -> Nothing
                 )
                 . lines
-        , part1 =
+        , part1 = Part { solve =
             show
                 . sum
                 . flip evalState 50
                 . traverse \(d, i) -> state \p ->
                     let (_, p') = step i d p
                      in (Count if p' == 0 then 1 else 0, p')
-        , part2 =
+            }
+        , part2 = Part { solve =
             show
                 . sum
                 . flip evalState 50
@@ -53,6 +57,7 @@ puzzle1 =
                                     | p' == 0 -> abs c + 1
                                     | otherwise -> abs c
                      in (c', p')
+            }
         }
 
 data Direction = L | R