Tidying
authorNeil Smith <neil.git@njae.me.uk>
Fri, 1 Jan 2021 12:17:40 +0000 (12:17 +0000)
committerNeil Smith <neil.git@njae.me.uk>
Fri, 1 Jan 2021 12:17:40 +0000 (12:17 +0000)
advent20/src/advent20.hs

index 01d997d4e1f2e963cdf566f5886e807dece02f71..92138c45cc30f62d2804293df563f78de7bbb6d8 100644 (file)
@@ -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) =