From: Neil Smith <neil.git@njae.me.uk>
Date: Fri, 1 Jan 2021 12:17:40 +0000 (+0000)
Subject: Tidying
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=c124d58aa7efa3f25f0a82993059f183e22ddd3f;p=advent-of-code-20.git

Tidying
---

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) =