simplify

glguy · Dec 9, 2024 · 80685d4 · 80685d4
1 parent 8cc1a98
commit 80685d4
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/solutions/src/2024/09.hs b/solutions/src/2024/09.hs
@@ -104,7 +104,6 @@ moveAll files free = fst (Map.foldrWithKey' move1 (0, free) files)
 -- contiguous free block.
 move1 :: Int -> (Int, Int) -> (Int, Map Int Int) -> (Int, Map Int Int)
 move1 offset (fileId, fileSize) (acc, free) =
-  seq acc $
   case [(k, v) | (k, v) <- Map.assocs free, then takeWhile by k < offset, v >= fileSize] of
     []         -> (acc + checksumOf offset fileId fileSize, free)
     (k, v) : _ -> (acc + checksumOf k      fileId fileSize, free')