Day 10

day10/Main.hs

@@ -0,0 +1,14 @@
+module Main where
+
+import Commons
+import qualified Part1
+import qualified Part2
+
+
+main = do grid <- parse
+          let part1Res = Part1.getCycleLength grid `div` 2
+          print part1Res
+          let part2ResTmp = Part2.getCycleArea grid
+          let part2Res = if part2ResTmp >= 0 then part2ResTmp
+                                             else abs part2ResTmp - 2 * part1Res
+          print part2Res