Colorless Sight Wiki / ProjectEular/Problem13

ProjectEular

-- Problem 13

module Main (main) where

main :: IO ()
main = do
    nums_str <- getContents
    print $ problem13 $ to_nums nums_str

problem13 :: [Integer] -> String
problem13 = take 10 . show . sum

to_nums :: String -> [Integer]
to_nums = map read . lines

最新の20件