13問目
http://projecteuler.net/index.php?section=problems&id=13
50桁の数100個を足して最初の10桁を求める。
簡単。
main = do cs <- readFile "euler013.txt" print $ euler013 $ lines cs euler013 :: [String] -> String euler013 ss = take 10 $ show $ sum $ map read ss
http://projecteuler.net/index.php?section=problems&id=13
50桁の数100個を足して最初の10桁を求める。
簡単。
main = do cs <- readFile "euler013.txt" print $ euler013 $ lines cs euler013 :: [String] -> String euler013 ss = take 10 $ show $ sum $ map read ss