do dataFileName <- getDataFileName
text <- readFile dataFileName
let forest = fmap (fmap readTree) $ lines text
- -- print forest
- -- print $ setVisibilityOrient forest
- -- print $ setVisibilityForest forest
- -- print $ countVisible $ setVisibilityForest forest
print $ part1 forest
print $ part2 forest
- -- print $ part1 sizedTree
- -- print $ part2 sizedTree
part1, part2 :: Forest -> Int
part1 = countVisible . setVisibilityForest