15 lines
321 B
Haskell
15 lines
321 B
Haskell
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
|