http://projecteuler.net/index.php?section=problems&id=48 11 + 22 + 33 + ... + 10001000の下10桁を求める。 僕は何もしてません。 main = print $ euler048 1000 10 euler048 :: Integer -> Int -> String euler048 m n = reverse $ take n $ reverse $ …

http://projecteuler.net/index.php?section=problems&id=49 1487, 4817, 8147のように、(i)どれも素数で、(ii)それぞれの数が他の数の並べ替えとなっている、4桁の等差数列を見つけ、それを繋げた12桁の数を求める。 手順は↓の通り。間違ってはいませんが、…