Day 17

day17/Main.hs

@@ -0,0 +1,14 @@
+module Main where
+
+import Commons
+import Data.Array (bounds)
+import Data.Map ((!))
+import qualified Part1
+import qualified Part2
+
+
+main = do city <- parse
+          let part1Res = Part1.getAllAstar city
+          print $ minimum part1Res
+          let part2Res = Part2.getAllAstar city
+          print $ minimum part2Res