X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent01%2FMain.hs;h=8c95a92d4c83caa89d16d5d2a4581a180e1bb488;hb=1ab3e062eb1b3b28a8aead9834afc962ca142451;hp=a52bf9c1a6bd597c69118aab6f859eb5eb1cb3af;hpb=28092a7c519e402030b0b2a40619312d9da87fbd;p=advent-of-code-21.git

diff --git a/advent01/Main.hs b/advent01/Main.hs
index a52bf9c..8c95a92 100644
--- a/advent01/Main.hs
+++ b/advent01/Main.hs
@@ -1,3 +1,5 @@
+-- Writeup at https://work.njae.me.uk/2021/12/01/advent-of-code-2021-day-1/
+
 import Data.List
 
 main :: IO ()
@@ -15,5 +17,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