From adb8d55ccbc9aafa8949f1677e4784334ac695e7 Mon Sep 17 00:00:00 2001
From: Laura Orvokki Kursula <lav@vampires.gay>
Date: Tue, 3 Dec 2024 22:06:56 +0100
Subject: 2-1

---
 2-1.hs | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 2-1.hs

(limited to '2-1.hs')

diff --git a/2-1.hs b/2-1.hs
new file mode 100644
index 0000000..934b08f
--- /dev/null
+++ b/2-1.hs
@@ -0,0 +1,28 @@
+monotonic :: [Int] -> Bool
+monotonic xs = all (<0) xs || all (>0) xs
+
+gradual :: [Int] -> Bool
+gradual = all ((<= 3) . abs)
+
+differences :: [Int] -> [Int]
+differences (x:y:xs) = x-y : differences (y:xs)
+differences _ = []
+
+safe :: [Int] -> Bool
+safe xs = let ys = differences xs
+  in monotonic ys && gradual ys
+
+line :: String -> Bool
+line = safe . map read . words
+
+count :: (a -> Bool) -> [a] -> Int
+count p = foldr f 0
+  where
+    f x y = if p x then succ y else y
+
+main :: IO ()
+main = do
+  s <- getContents
+  let ls = lines s
+  let xs = map line ls
+  print $ count id xs
-- 
cgit v1.2.3