21 lines
407 B
Haskell
21 lines
407 B
Haskell
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
|
|
|