48問目
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 $ show $ sum [ x^x | x <- [1..m] ]