dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Fix issue when multiple constructors are defined on one line. Update aoc2024 tests to not use debugStr.

Browse Source
This commit is contained in:
Steve Dunham
2025-10-24 14:50:26 -07:00
parent 8aee58c23b
commit 551e31d589
10 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
aoc2024/Day15.newt
View File

@@ -94,12 +94,12 @@ run fn = do
putStrLn fn
text <- readFile fn
let (Right (grid,steps)) = parseFile text | Left err => putStrLn $ "Error " ++ err
let ((start,_) :: Nil) = filter ((_==_ '@') ∘ snd) $ toList grid | x => debugLog x
let ((start,_) :: Nil) = filter ((_==_ '@') ∘ snd) $ toList grid | x => printLn x
let (grid', end) = foldl step (grid, start) steps
let p1 = foldl _+_ 0 $ map (gps ∘ fst) $ filter (_==_ 'O' ∘ snd) $ toList grid'
putStrLn $ "part1 " ++ show p1
let grid2 = mkPart2 grid
let ((start,_) :: Nil) = filter ((_==_ '@') ∘ snd) $ toList grid2 | x => debugLog x
let ((start,_) :: Nil) = filter ((_==_ '@') ∘ snd) $ toList grid2 | x => printLn x
let (grid2', end) = foldl step (grid2, start) steps
let p2 = foldl _+_ 0 $ map (gps ∘ fst) $ filter (_==_ '[' ∘ snd) $ toList grid2'
putStrLn $ "part2 " ++ show p2