commit eb1d7ed07c6dedc57748639ca39750435b263e1b · drubery.com/aoc2025

+2 -1

.gitignore

+7

input.sh

···

       1
       1
       +
       #!/bin/bash

     

       2
       2
       +
       

     

       3
       3
       +
       YEAR=2024

     

       4
       4
       +
       DAY=$1

     

       5
       5
       +
       COOKIE=$(cat cookie.txt)

     

       6
       6
       +
       

     

       7
       7
       +
       curl "https://adventofcode.com/$YEAR/day/$DAY/input" -b "$COOKIE" -o "inputs/day$DAY.txt"

-7

src/Day01.hs

···

       1
       1
       -
       module Day01 where

     

       2
       2
       -
       

     

       3
       3
       -
       part1 :: String -> String

     

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

     

       5
       5
       -
       

     

       6
       6
       -
       part2 :: String -> String

     

       7
       7
       -
       part2 input = "Day 01 part 02"

+7

src/Day1.hs

···

       1
       1
       +
       module Day1 where

     

       2
       2
       +
       

     

       3
       3
       +
       part1 :: String -> String

     

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

     

       5
       5
       +
       

     

       6
       6
       +
       part2 :: String -> String

     

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

+4 -4

src/Main.hs

···

       1
       1
        
       module Main where

     

       2
       2
        
       

     

       3
       3
       -
       import qualified Day01

     

       3
       3
       +
       import qualified Day1

     

       4
       4
        
       import System.Environment (getArgs)

     

       5
       5
        
       

     

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

     
···

       15
       15
        
           Just (day,path) -> do

     

       16
       16
        
             input <- readFile path

     

       17
       17
        
             case day of

     

       18
       18
       -
               "01" -> do

     

       19
       19
       -
                 putStrLn $ "Part 1: " ++ Day01.part1 input

     

       20
       20
       -
                 putStrLn $ "Part 2: " ++ Day01.part2 input

     

       18
       18
       +
               "1" -> do

     

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

     

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

     

       21
       21
        
               _ -> error "Invalid day"

     

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

     

       23
       23