2008-03-24から1日間の記事一覧
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…
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…