commit 3fba8b4c15824cd65ddd707fe95c501c8a58bd6e · drubery.com/aoc2025

+14 -2
src/Day12.hs
···

       1
       1
        
       module Day12 where

     

       2
       2
        
       

     

       3
       3
       +
       parse :: String -> [(Int,Int,[Int])]

     

       4
       4
       +
       parse = map parseLine . drop 30 . lines

     

       5
       5
       +
         where parseLine line =

     

       6
       6
       +
                 let w = words line

     

       7
       7
       +
                     (size,counts) = (head w, map read $ tail w)

     

       8
       8
       +
                     cols = read $ take 2 size

     

       9
       9
       +
                     rows = read $ take 2 $ drop 3 size

     

       10
       10
       +
                  in (cols, rows, counts)

     

       11
       11
       +
       

     

       3
       12
        
       part1 :: String -> String

     

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

     

       13
       13
       +
       part1 input =

     

       14
       14
       +
         let regions = parse input

     

       15
       15
       +
             slack (cols, rows, counts) = cols * rows - 7 * (counts !! 0) - 7 * (counts !! 1) - 7 * (counts !! 2) - 5 * (counts !! 3) - 7 * (counts !! 4) - 6 * (counts !! 5)

     

       16
       16
       +
          in show $ length $ filter (> 0) $ map slack regions

     

       5
       17
        
       

     

       6
       18
        
       part2 :: String -> String

     

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

     

       19
       19
       +
       part2 _ = "You win!"