commit e73ef43dfb230cb9f2cbc122bfa3ba8f34b7e6a8 · drubery.com/aoc2025

+6

generate.py

···

       1
       1
       +
       # for i in range(1,25):

     

       2
       2
       +
       #    f = open(f"src/Day{i}.hs", "w")

     

       3
       3
       +
       #    f.write(f"module Day{i} where\n\npart1 :: String -> String\npart1 _ = \"Day {i} part 1\"\n\npart2 :: String -> String\npart2 _ = \"Day {i} part 2\"\n")

     

       4
       4
       +
       

     

       5
       5
       +
       for i in range(1,13):

     

       6
       6
       +
           print(f"\"{i}\" -> do\n          putStrLn $ \"Part 1: \" ++ Day{i}.part1 input\n          putStrLn $ \"Part 2: \" ++ Day{i}.part2 input\n    ",end='')

+2 -2

src/Day1.hs

···

       1
       1
        
       module Day1 where

     

       2
       2
        
       

     

       3
       3
        
       part1 :: String -> String

     

       4
       4
       -
       part1 input = "Day 1 part 1"

     

       4
       4
       +
       part1 _ = "Day 1 part 1"

     

       5
       5
        
       

     

       6
       6
        
       part2 :: String -> String

     

       7
       7
       -
       part2 input = "Day 1 part 2"

     

       7
       7
       +
       part2 _ = "Day 1 part 2"

+7

src/Day10.hs

···

       1
       1
       +
       module Day10 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 10 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 10 part 2"

+7

src/Day11.hs

···

       1
       1
       +
       module Day11 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 11 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 11 part 2"

+7

src/Day12.hs

···

       1
       1
       +
       module Day12 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 12 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 12 part 2"

+7

src/Day2.hs

···

       1
       1
       +
       module Day2 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 2 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 2 part 2"

+7

src/Day3.hs

···

       1
       1
       +
       module Day3 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 3 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 3 part 2"

+7

src/Day4.hs

···

       1
       1
       +
       module Day4 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 4 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 4 part 2"

+7

src/Day5.hs

···

       1
       1
       +
       module Day5 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 5 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 5 part 2"

+7

src/Day6.hs

···

       1
       1
       +
       module Day6 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 6 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 6 part 2"

+7

src/Day7.hs

···

       1
       1
       +
       module Day7 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 7 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 7 part 2"

+7

src/Day8.hs

···

       1
       1
       +
       module Day8 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 8 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 8 part 2"

+7

src/Day9.hs

···

       1
       1
       +
       module Day9 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

       4
       4
       +
       part1 _ = "Day 9 part 1"

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

       7
       7
       +
       part2 _ = "Day 9 part 2"

+44

src/Main.hs

···

       1
       1
        
       module Main where

     

       2
       2
        
       

     

       3
       3
        
       import qualified Day1

     

       4
       4
       +
       import qualified Day2

     

       5
       5
       +
       import qualified Day3

     

       6
       6
       +
       import qualified Day4

     

       7
       7
       +
       import qualified Day5

     

       8
       8
       +
       import qualified Day6

     

       9
       9
       +
       import qualified Day7

     

       10
       10
       +
       import qualified Day8

     

       11
       11
       +
       import qualified Day9

     

       12
       12
       +
       import qualified Day10

     

       13
       13
       +
       import qualified Day11

     

       14
       14
       +
       import qualified Day12

     

       4
       15
        
       import System.Environment (getArgs)

     

       5
       16
        
       

     

       6
       17
        
       parseArgs :: [String] -> Maybe (String, String)

     
···

       18
       29
        
               "1" -> do

     

       19
       30
        
                 putStrLn $ "Part 1: " ++ Day1.part1 input

     

       20
       31
        
                 putStrLn $ "Part 2: " ++ Day1.part2 input

     

       32
       32
       +
               "2" -> do

     

       33
       33
       +
                 putStrLn $ "Part 1: " ++ Day2.part1 input

     

       34
       34
       +
                 putStrLn $ "Part 2: " ++ Day2.part2 input

     

       35
       35
       +
               "3" -> do

     

       36
       36
       +
                 putStrLn $ "Part 1: " ++ Day3.part1 input

     

       37
       37
       +
                 putStrLn $ "Part 2: " ++ Day3.part2 input

     

       38
       38
       +
               "4" -> do

     

       39
       39
       +
                 putStrLn $ "Part 1: " ++ Day4.part1 input

     

       40
       40
       +
                 putStrLn $ "Part 2: " ++ Day4.part2 input

     

       41
       41
       +
               "5" -> do

     

       42
       42
       +
                 putStrLn $ "Part 1: " ++ Day5.part1 input

     

       43
       43
       +
                 putStrLn $ "Part 2: " ++ Day5.part2 input

     

       44
       44
       +
               "6" -> do

     

       45
       45
       +
                 putStrLn $ "Part 1: " ++ Day6.part1 input

     

       46
       46
       +
                 putStrLn $ "Part 2: " ++ Day6.part2 input

     

       47
       47
       +
               "7" -> do

     

       48
       48
       +
                 putStrLn $ "Part 1: " ++ Day7.part1 input

     

       49
       49
       +
                 putStrLn $ "Part 2: " ++ Day7.part2 input

     

       50
       50
       +
               "8" -> do

     

       51
       51
       +
                 putStrLn $ "Part 1: " ++ Day8.part1 input

     

       52
       52
       +
                 putStrLn $ "Part 2: " ++ Day8.part2 input

     

       53
       53
       +
               "9" -> do

     

       54
       54
       +
                 putStrLn $ "Part 1: " ++ Day9.part1 input

     

       55
       55
       +
                 putStrLn $ "Part 2: " ++ Day9.part2 input

     

       56
       56
       +
               "10" -> do

     

       57
       57
       +
                 putStrLn $ "Part 1: " ++ Day10.part1 input

     

       58
       58
       +
                 putStrLn $ "Part 2: " ++ Day10.part2 input

     

       59
       59
       +
               "11" -> do

     

       60
       60
       +
                 putStrLn $ "Part 1: " ++ Day11.part1 input

     

       61
       61
       +
                 putStrLn $ "Part 2: " ++ Day11.part2 input

     

       62
       62
       +
               "12" -> do

     

       63
       63
       +
                 putStrLn $ "Part 1: " ++ Day12.part1 input

     

       64
       64
       +
                 putStrLn $ "Part 2: " ++ Day12.part2 input

     

       21
       65
        
               _ -> error "Invalid day"

     

       22
       66
        
           Nothing -> error "Failed to parse args"

     

       23
       67