30問目
http://projecteuler.net/index.php?section=problems&id=30
各桁の数字の5乗の和が元の数字と等しくなるような数の和を求める。
import Data.Char main = print $ sum $ euler030 5 euler030 :: Int -> [Int] euler030 n = filter judge [2..9^(n+1)] where judge a = a == (sum $ map ((^ n) . digitToInt) $ show a)