Problem 73 - Project Euler
3分かかる。ダメダメ。
library(gmp) count <- 0 for(d in 4:1e4){ p <- gcd.bigz(d, ceiling(d/3):floor(d/2))==1 count <- count + length(p[p]) } count
Problem 73 - Project Euler
3分かかる。ダメダメ。
library(gmp) count <- 0 for(d in 4:1e4){ p <- gcd.bigz(d, ceiling(d/3):floor(d/2))==1 count <- count + length(p[p]) } count