X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent08%2FMain.hs;h=6bbf06a34fc5f46d42160ad926da0c0c0c8b8f80;hb=d3efea2e02f847b10e99512e70cb3352c8fffd01;hp=e822fc278098418b6809c3b9fc9e1978a452de1d;hpb=49b6bfbbdd44d081f8fcf8cf952ce5c3dc8a5f27;p=advent-of-code-22.git

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