Problem 53 - Project Euler
100個くらいなら別に早くする工夫とかするまでもなく一瞬で終わってしまう.
cmb <- function(n,r){ factorial(n)/(factorial(r)*factorial(n-r)) } count <- 0 for(i in 1:100){ cand <- cmb(i,1:i) count <- count + length(cand[cand>10^6]) } count
Problem 53 - Project Euler
100個くらいなら別に早くする工夫とかするまでもなく一瞬で終わってしまう.
cmb <- function(n,r){ factorial(n)/(factorial(r)*factorial(n-r)) } count <- 0 for(i in 1:100){ cand <- cmb(i,1:i) count <- count + length(cand[cand>10^6]) } count