Problem 56

import文のほうが本文より行数が多いなんて。

import Data.Char
import Data.List
import Data.Ord
p056 =maximumBy (comparing fst) [(sum.map digitToInt.show$a^b,(a,b))|a<-[1..99],b<-[1..99]]
More Reading
Newer// Problem 55
Older// Problem 57