Removed arithmetic

diff --git a/advent01/Main.hs b/advent01/Main.hs
index a52bf9c1a6bd597c69118aab6f859eb5eb1cb3af..61b1a291af5f18284c8d1ec068139b9e07e24f5b 100644 (file)
--- a/advent01/Main.hs
+++ b/advent01/Main.hs
@@ -15,5 +15,4 @@ part2 nums = countIncreasing $ map sum windows
   where windows = filter ((== 3) . length) $ map (take 3) $ tails nums
 
 countIncreasing :: [Int] -> Int
--- countIncreasing nums = length $ filter (> 0) $ zipWith (-) (tail nums) nums
 countIncreasing nums = length $ filter (uncurry (>)) $ zip (tail nums) nums