commit fc15c5d075ad85d438dc5e9495fe5506eda931a0 · drubery.com/aoc2025

+2

.dir-locals.el

···

       1
       1
       +
       ((nil . ((default-directory . "~/repos/aoc2025/")

     

       2
       2
       +
       	 (compile-command . "./build.sh"))))

+3

.gitignore

+3

build.sh

···

       1
       1
       +
       #!/bin/bash

     

       2
       2
       +
       

     

       3
       3
       +
       ghc -Wall -odir build/ -hidir build/ -o aoc src/*.hs

+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"

+23

src/Main.hs

···

       1
       1
       +
       module Main where

     

       2
       2
       +
       

     

       3
       3
       +
       import qualified Day01

     

       4
       4
       +
       import System.Environment (getArgs)

     

       5
       5
       +
       

     

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

     

       7
       7
       +
       parseArgs [s] = Just (s, "inputs/day" ++ s ++ ".txt")

     

       8
       8
       +
       parseArgs [s,t] = Just (s, t)

     

       9
       9
       +
       parseArgs _ = Nothing

     

       10
       10
       +
       

     

       11
       11
       +
       main :: IO ()

     

       12
       12
       +
       main = do

     

       13
       13
       +
         args <- getArgs

     

       14
       14
       +
         case parseArgs args of

     

       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

     

       21
       21
       +
               _ -> error "Invalid day"

     

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

     

       23
       23
       +