adventofcode-2021/day00/part1.hs

8 lines
269 B
Haskell

import System.IO (readFile)
import System.Environment (getArgs)
main :: IO ()
main = do [_, _, file] <- getArgs
(_:numbers) <- map (read :: String -> Int) . lines <$> readFile file
putStrLn $ show (minimum numbers) ++ " " ++ show (maximum numbers)