Day 20

day20/Main.hs

@@ -0,0 +1,12 @@
+module Main where
+
+import Commons
+import qualified Part1
+import qualified Part2
+
+
+main = do modules <- parse
+          let (part1Low, part1High) = Part1.pressButtonNTimes modules 1000
+          print (part1Low * part1High)
+          let part2Res = Part2.pressButtonUntilDone modules
+          print $ foldl lcm 1 part2Res