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