From: Neil Smith <neil.git@njae.me.uk>
Date: Tue, 13 Dec 2016 10:36:42 +0000 (+0000)
Subject: Tidying
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=33654d3a7b40a63bdeb95cc42076a436a02e9444;p=advent-of-code-16.git

Tidying
---

diff --git a/advent13.hs b/advent13.hs
index a6e56d9..94669fd 100644
--- a/advent13.hs
+++ b/advent13.hs
@@ -1,10 +1,6 @@
 import Data.List ((\\), nub, sortOn)
-import Numeric (showIntAtBase)
-import Data.Char (intToDigit)
 import Data.Bits (popCount)
 
-import qualified Data.Map.Lazy as Map -- day 4, 5
-
 type Pos = (Int, Int)
 
 seed = 1362
@@ -23,7 +19,6 @@ part1 = print $ length $ tail $ extractJust $ aStar [[(1, 1)]] []
 part2 :: IO ()
 part2 = do print $ length $ tail $ edl 50 [[(1, 1)]] []
            putStrLn $ showRoomR 30 25 $ edl 50 [[(1, 1)]] []
--- part2 = print $ length $ tail $ edl 50 [[(1, 1)]] []
 
 
 extractJust :: Maybe [a] -> [a]
@@ -36,11 +31,7 @@ isWall x y = (popCount n) `mod` 2 == 1
         n = x*x + 3*x + 2*x*y + y + y*y + seed
 
 
-showRoom w h = unlines rows
-    where 
-        rows = [row x | x <- [0..h]]
-        row x = [showCell x y | y <- [0..w]]
-        showCell x y = if (isWall x y) then '#' else '.'
+showRoom w h = showRoomR w h []
 
 showRoomR w h reached = unlines rows
     where