ability to run code and check output in tests

2024-12-28 13:19:15 -08:00
parent 95f90c8698
commit a6e68ac2a2
62 changed files with 459 additions and 31 deletions
--- a/aoc2024/Day24.newt
+++ b/aoc2024/Day24.newt
@@ -177,7 +177,6 @@ run : String -> IO Unit
 run fn = do
  putStrLn fn
  text <- readFile fn
-  putStrLn text
  let (Right (wires, gates)) = parseFile text | Left msg => putStrLn $ "fail: " ++ msg
  let state = foldMap const EmptyMap wires
  let gateMap = foldMap const EmptyMap $ map (\ gate => (out gate, gate)) gates