Done day 10

[advent-of-code-21.git] / advent09 / Main.hs

diff --git a/advent09/Main.hs b/advent09/Main.hs
index a5c4cccfdda6f435021a2d0555d71471730eb813..df5b1be8e413054286c52e43ce7928209f59d0d7 100644 (file)
--- a/advent09/Main.hs
+++ b/advent09/Main.hs
@@ -15,7 +15,6 @@ main :: IO ()
 main = 
   do  text <- readFile "data/advent09a.txt"
       let grid = mkGrid text
-      print $ bounds grid
       print $ part1 grid
       print $ part2 grid
 
@@ -64,10 +63,8 @@ breadthFirstSearch grid agenda basin
                  else S.insert here basin
         agenda' = S.union candidates $ S.delete here agenda
 
-
 neighbours :: Grid -> Coord -> [Coord]
 neighbours grid here = filter (inRange (bounds grid))  
   [ here ^+^ delta 
   | delta <- [V2 -1 0, V2 1 0, V2 0 -1, V2 0 1]
   ]
-