projects
/
advent-of-code-21.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added writeup links
[advent-of-code-21.git]
/
advent01
/
Main.hs
diff --git
a/advent01/Main.hs
b/advent01/Main.hs
index 9d627260e2887769b4e74d8f7546fcc94bac9b25..8c95a92d4c83caa89d16d5d2a4581a180e1bb488 100644
(file)
--- 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 ()
import Data.List
main :: IO ()
@@
-15,4
+17,4
@@
part2 nums = countIncreasing $ map sum windows
where windows = filter ((== 3) . length) $ map (take 3) $ tails nums
countIncreasing :: [Int] -> Int
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