X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-20.git;a=blobdiff_plain;f=advent20%2Fsrc%2Fadvent20.hs;fp=advent20%2Fsrc%2Fadvent20.hs;h=92138c45cc30f62d2804293df563f78de7bbb6d8;hp=01d997d4e1f2e963cdf566f5886e807dece02f71;hb=c124d58aa7efa3f25f0a82993059f183e22ddd3f;hpb=6bf86d69309444f01dfe1c3c87b88766c783106e

diff --git a/advent20/src/advent20.hs b/advent20/src/advent20.hs
index 01d997d..92138c4 100644
--- a/advent20/src/advent20.hs
+++ b/advent20/src/advent20.hs
@@ -15,7 +15,6 @@ import qualified Data.Map.Strict as M
 import Data.Bool (bool)
 import Data.List (delete)
 import Control.Monad (guard, foldM)
--- import Data.Either (fromRight)
 
 
 type Coord = (Int, Int)
@@ -69,7 +68,6 @@ arrangeTiles :: Int -> [Tile] -> Arrangement
 arrangeTiles rMax tiles = fst $ head $ foldM arrange (M.empty, tiles) locations
   where locations = init $ scanl nextLoc (0, 0) tiles
         nextLoc (r, c) _ = if c == rMax then (r + 1, 0) else (r, c + 1)
-        -- (arrangement, _) = head $ foldM arrange (M.empty, tiles) locations
 
 arrange :: (Arrangement, [Tile]) -> Coord -> [(Arrangement, [Tile])]
 arrange (grid, tiles) (r, c) =