[[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
トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS