17 lines
303 B
Haskell
17 lines
303 B
Haskell
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
|
|
|