module Day1 where
import System.IO (openFile, IOMode (ReadMode), hClose, hGetContents)

strToInts :: String -> [Int]
strToInts = map read . lines

depth :: [Int] -> Int
depth [] = 0
depth [x] = 0
depth (x:xs)  
    | head xs > x = 1 + depth xs
    | otherwise = depth xs

main :: IO ()
main = do
    input <- openFile "inputs/1.txt" ReadMode 
    contents <- hGetContents input
    print $ depth $ strToInts contents
    hClose input