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

This commit is contained in:
2025-10-24 14:50:26 -07:00
parent 8aee58c23b
commit 551e31d589
10 changed files with 24 additions and 19 deletions

View File

@@ -57,7 +57,7 @@ run fn = do
text <- readFile fn
let chunks = parseFile text
let (locks,keys) = splitKeys chunks Nil Nil
debugLog (length locks, length keys)
printLn (length locks, length keys)
let p1 = foldl _+_ 0 $ map (\ l => foldl _+_ 0 $ map (check l) keys) locks
putStrLn $ "part1 " ++ show p1