Project Euler Problem 16
2^15 = 32768 であり、これの各数字の合計は 3 + 2 + 7 + 6 + 8 = 26 となる。
同様にして、2^1000 の各数字の合計を求めよ。
久々にやる.こういうのは簡単だなぁ.
library(gmp) a1 <- as.bigz(2^1000) b1 <- numeric() for(i in 1:302){ b1[i] <- as.numeric(substring(a1,i,i)) } sum(b1)
2^15 = 32768 であり、これの各数字の合計は 3 + 2 + 7 + 6 + 8 = 26 となる。
同様にして、2^1000 の各数字の合計を求めよ。
久々にやる.こういうのは簡単だなぁ.
library(gmp) a1 <- as.bigz(2^1000) b1 <- numeric() for(i in 1:302){ b1[i] <- as.numeric(substring(a1,i,i)) } sum(b1)