Problem 56

Problem 56 - Project Euler
多倍長整数すばらしすぎる．もうgmpなしでは生きていけない．

library(gmp)

sum.digits <- function(n){
  sum(as.numeric(strsplit(as.character(n),"")[[1]]))
}

answer <- 0
for(a in 1:99){
  for(b in 1:99){
    cand <- sum.digits(pow.bigz(a,b))
    if(cand > answer) answer <- cand
  }
}