15 lines
410 B
Haskell
15 lines
410 B
Haskell
module Main where
|
|
|
|
import Commons
|
|
import qualified Part1
|
|
import qualified Part2
|
|
|
|
|
|
main = do grid <- parse
|
|
let part1Res = Part1.getCycleLength grid `div` 2
|
|
print part1Res
|
|
let part2ResTmp = Part2.getCycleArea grid
|
|
let part2Res = if part2ResTmp >= 0 then part2ResTmp
|
|
else abs part2ResTmp - 2 * part1Res
|
|
print part2Res
|