day7: dangling debug print

2021-12-16 21:58:39 +01:00 · 2021-12-16 21:58:39 +01:00 · 44e641dbd6
commit 44e641dbd6
parent b651b74de2
1 changed files with 0 additions and 1 deletions
--- a/2021/day07/day07.hs
+++ b/2021/day07/day07.hs
@ -9,7 +9,6 @@ main = do
  let middle2 = (sum crabs) `div` genericLength crabs
  print $ fuel middle1 id crabs
  print $ fuel middle2 (\x->last $ take (x+1) $ scanl1 (+) [0..]) crabs
-  print middle2

 fuel :: Int -> (Int -> Int) -> [Int] -> Int
 fuel middle f = sum . map (f . abs . subtract middle)