56問目
http://projecteuler.net/index.php?section=problems&id=56
a, b < 100 に対して、自然数 ab の各桁の数字の和の最大値を求める。
問題文の通りです。
import Data.Char main = print $ euler056 99 99 euler056 :: Integer -> Integer -> Int euler056 ma mb = maximum $ map (sum . map digitToInt . show) [ a ^ b | a <- [1..ma], b <- [1..mb] ]