Problem 53

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