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 } }