X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent11.hs;h=58215fd6da22ec671ee05f3b22d21d66ea734ca3;hb=5fd57ba9da53a1ee824ea4153090b40f9dd15ebd;hp=af048de2f7090c05d09ebd1a68b9a058eb386396;hpb=ec008e17b843d379654dba687739b76c68abe9a2;p=advent-of-code-16.git

diff --git a/advent11.hs b/advent11.hs
index af048de..58215fd 100644
--- a/advent11.hs
+++ b/advent11.hs
@@ -110,10 +110,8 @@ legalSuccessors :: [Building] -> [Building]
 legalSuccessors = filter (isLegal)
 
 updateBuilding :: Int -> [Floor] -> Int -> [Item] -> Building
--- updateBuilding f floors _ _ = Building f floors
 updateBuilding oldF oldFloors newF items = Building newF newFloors
-    where numberedFloors = zip [0..] oldFloors
-          newFloors = map (updateFloor) numberedFloors
+    where newFloors = map (updateFloor) $ zip [0..] oldFloors
           updateFloor (f, fl) 
             | f == oldF = sort $ fl \\ items
             | f == newF = sort $ items ++ fl