commit 362f0cc711b33ba2075e439612e6909ed3b44b73 · drubery.com/aoc2025

+20 -2

src/Day3.hs

···

       1
        
       module Day3 where

     

       2
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       3
        
       part1 :: String -> String

     

       4
       -
       part1 _ = "Day 3 part 1"

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       5
        
       

     

       6
        
       part2 :: String -> String

     

       7
       -
       part2 _ = "Day 3 part 2"

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0

···

       1
        
       module Day3 where

     

       2
        
       

     

       3
       +
       import Data.Char

     

       4
       +
       

     

       5
       +
       parse :: String -> [[Int]]

     

       6
       +
       parse input = map (map digitToInt) (lines input)

     

       7
       +
       

     

       8
       +
       maxJoltages :: [Int] -> [Int]

     

       9
       +
       maxJoltages bank =

     

       10
       +
         let update states k = zipWith max states (0 : [10*s + k | s <- states])

     

       11
       +
          in foldl update (repeat 0) bank

     

       12
       +
       

     

       13
        
       part1 :: String -> String

     

       14
       +
       part1 input =

     

       15
       +
         show $

     

       16
       +
         sum $

     

       17
       +
         map (\bank -> (maxJoltages bank) !! 2) $

     

       18
       +
         parse input

     

       19
        
       

     

       20
        
       part2 :: String -> String

     

       21
       +
       part2 input =

     

       22
       +
         show $

     

       23
       +
         sum $

     

       24
       +
         map (\bank -> (maxJoltages bank) !! 12) $

     

       25
       +
         parse input