From 3dc0370ab576388b7fe6908ac73c4561551a494c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 1 Dec 2021 19:22:21 +0100 Subject: 2021 --- 2021/1.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 2021/1.hs (limited to '2021/1.hs') diff --git a/2021/1.hs b/2021/1.hs new file mode 100644 index 0000000..84ae3cb --- /dev/null +++ b/2021/1.hs @@ -0,0 +1,12 @@ +module Main where + +import Data.List + +import Input + + +main :: IO () +main = do + inp <- map read <$> getInput 1 + print (sum . map fromEnum . map (> (0::Int)) $ zipWith (-) (tail inp) inp) + print (sum . map fromEnum . map (> (0::Int)) . (\x -> zipWith (-) (tail x) x) . map sum . filter ((== 3) . length) . map (take 3) $ tails inp) -- cgit v1.2.3-54-g00ecf