re-organise repo

2021/day1/day1_p2.hs

@@ -0,0 +1,20 @@
+import Data.List
+
+main :: IO ()
+main = do 
+    input <- readFile "input.txt"
+    print . count . average . map read $ words input
+
+average :: [Int] -> [Int]
+average (x:y:[]) = []
+average (x:y:z:xs) = x+y+z:average (y:z:xs)
+
+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
+