12 lines
241 B
Haskell
12 lines
241 B
Haskell
import System.IO
|
|
import Control.Monad
|
|
|
|
getInts :: FilePath -> IO [Integer]
|
|
getInts path = do
|
|
contents <- readFile path
|
|
let ints = (map read . lines $ contents) :: [Integer]
|
|
return ints
|
|
|
|
main = do
|
|
putStrLn "The solution is: "
|