2013-07-14から1日間の記事一覧
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 *…
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 *…