Day 22

day22/Main.hs

@@ -0,0 +1,13 @@
+module Main where
+
+import Commons
+import qualified Part1
+import qualified Part2
+
+
+main = do snapshot <- parse
+          let afterFallSnapshot = fall snapshot
+          let part1Res = Part1.getDestroyables afterFallSnapshot
+          print $ length part1Res
+          let part2Res = Part2.getReactions afterFallSnapshot
+          print $ sum $ map length part2Res