14 lines
363 B
Haskell
14 lines
363 B
Haskell
module Main where
|
|
|
|
import Commons
|
|
import qualified Part1
|
|
import qualified Part2
|
|
|
|
|
|
main = do snapshot <- parse
|
|
let afterFallSnapshot = fall snapshot
|
|
let part1Res = Part1.getDestroyables afterFallSnapshot
|
|
print $ length part1Res
|
|
let part2Res = Part2.getReactions afterFallSnapshot
|
|
print $ sum $ map length part2Res
|