おお,できた.最初gmpってパッケージの使い方が分からなかったけど分かれば何てことないな.それに別段遅くない.
library(gmp) ans <- 0 i <- 1 for(i in 1:1000){ ans <- ans + as.bigz(i)^i } ans%%(10^10)
おお,できた.最初gmpってパッケージの使い方が分からなかったけど分かれば何てことないな.それに別段遅くない.
library(gmp) ans <- 0 i <- 1 for(i in 1:1000){ ans <- ans + as.bigz(i)^i } ans%%(10^10)