19 lines
433 B
Haskell
19 lines
433 B
Haskell
|
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
|