|
|
|
@@ -16,8 +16,8 @@ main = do |
|
|
|
ansA = solveA ops |
|
|
|
ansB = solveB ops |
|
|
|
in do |
|
|
|
putStrLn $ "day7a: " ++ (show ansA) |
|
|
|
putStrLn $ "day7b: " ++ (show ansB) |
|
|
|
putStrLn $ "day8a: " ++ (show ansA) |
|
|
|
putStrLn $ "day8b: " ++ (show ansB) |
|
|
|
|
|
|
|
solveA :: V.Vector (Bool, Op) -> Int |
|
|
|
solveA ops = runMachineA ops 0 0 |
|
|
|
|
