From d3efea2e02f847b10e99512e70cb3352c8fffd01 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Thu, 8 Dec 2022 22:23:06 +0200 Subject: [PATCH] More tidying --- advent08/Main.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/advent08/Main.hs b/advent08/Main.hs index e822fc2..6bbf06a 100644 --- a/advent08/Main.hs +++ b/advent08/Main.hs @@ -14,14 +14,8 @@ main = 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 -- 2.34.1