Problem 65 - Project Euler
与えられている情報を利用してしまえばなんということはない。
しかしまたgmpに頼ってしまった感があるっちゃある。
library(gmp) a.seq <- numeric(100) a.seq[1] <- 2 count <- 1 for(i in 2:100){ if(i%%3==0){ a.seq[i] <- count*2 count <- count+1 }else{ a.seq[i] <- 1 } } num <- as.bigz(1) den <- a.seq[100] for(a in a.seq[99:1]){ num <- num + den*a temp <- den den <- num num <- temp } sum(as.numeric(strsplit(as.character(den),"")[[1]]))