2-1

1 files changed, 28 insertions, 0 deletions

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