Day 11

day11/Main.hs

@@ -0,0 +1,12 @@
+module Main where
+
+import Commons
+import qualified Part1
+import qualified Part2
+
+
+main = do image <- parse
+          let part1Res = sum . concat $ Part1.computeDistances image
+          print part1Res
+          let part2Res = sum . concat $ Part2.computeDistances image
+          print part2Res