2013-07-14から1日間の記事一覧

RでProject Euler 6〜10

R

Problem 6 N <- 100 v <- 1:N s1 <- sum(v) s2 <- sum(v * v) print(s1 * s1 - s2) v * vとすると各項の自乗のベクトルになります。 Problem 7 make_primes <- function(N) { a <- rep(TRUE, N) # TRUEに初期化 最終的にTRUEなら素数 for(p in 2:N) { if(p *…