http://projecteuler.net/index.php?section=problems&id=56 a, b 自然数 ab の各桁の数字の和の最大値を求める。 問題文の通りです。 import Data.Char main = print $ euler056 99 99 euler056 :: Integer -> Integer -> Int euler056 ma mb = maximum $ m…

http://projecteuler.net/index.php?section=problems&id=57 √2は以下のように連分数展開できる。 1 + 1/2 = 3/2 = 1.5 1 + 1/(2 + 1/2) = 7/5 = 1.4 1 + 1/(2 + 1/(2 + 1/2)) = 17/12 = 1.41666... 1 + 1/(2 + 1/(2 + 1/(2 + 1/2))) = 41/29 = 1.41379... …