alan rewite day1 haskell

day1/day1_p1.hs

@@ -0,0 +1,16 @@
+import Data.List
+
+main :: IO ()
+main = do
+    input <- readFile "input.txt"
+    print . count . map read $ words input
+
+count :: [Int] -> Int
+count (x:xs) = count_f x xs
+
+count_f :: Int -> [Int] -> Int
+count_f _ [] = 0
+count_f nb (x:xs)
+     | x > nb = 1 + count_f x xs
+     | otherwise = count_f x xs
+