Day 18

day18/Main.hs

@@ -0,0 +1,14 @@
+module Main where
+
+import Commons
+import qualified Part1
+import qualified Part2
+
+
+main = do lines <- getAllLines
+          let grid1 = Part1.parse lines
+          let part1Res = getArea grid1
+          print part1Res
+          let grid2 = Part2.parse lines
+          let part2Res = getArea grid2
+          print part2Res