Day 02

day02/Main.hs

@@ -0,0 +1,11 @@
+module Main where
+
+import Commons
+import Part1
+import Part2
+
+main = do games <- parse
+          let part1Res = sum (Part1.getPossibleIds games)
+          putStrLn (show (part1Res))
+          let part2Res = sum (Part2.getPower games)
+          putStrLn (show (part2Res))