Contents

sieve <- function(limit) {
  if (limit < 2) {
    return(c())
  }
  nums <- rep(TRUE, limit)
  nums[1] <- FALSE
  for (i in 2:limit) {
    if (nums[i]) {
      div <- floor(limit / i)
      if (div > 1) {
        nums[i * 2:div] <- FALSE  
      }
    }
  }
  which(nums)
}

Version data entries

171 entries across 171 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/r/exercises/sieve/example.R
trackler-2.2.1.97	tracks/r/exercises/sieve/example.R
trackler-2.2.1.96	tracks/r/exercises/sieve/example.R
trackler-2.2.1.95	tracks/r/exercises/sieve/example.R
trackler-2.2.1.94	tracks/r/exercises/sieve/example.R
trackler-2.2.1.93	tracks/r/exercises/sieve/example.R
trackler-2.2.1.92	tracks/r/exercises/sieve/example.R
trackler-2.2.1.91	tracks/r/exercises/sieve/example.R
trackler-2.2.1.90	tracks/r/exercises/sieve/example.R
trackler-2.2.1.89	tracks/r/exercises/sieve/example.R
trackler-2.2.1.88	tracks/r/exercises/sieve/example.R
trackler-2.2.1.87	tracks/r/exercises/sieve/example.R
trackler-2.2.1.86	tracks/r/exercises/sieve/example.R
trackler-2.2.1.85	tracks/r/exercises/sieve/example.R
trackler-2.2.1.84	tracks/r/exercises/sieve/example.R
trackler-2.2.1.83	tracks/r/exercises/sieve/example.R
trackler-2.2.1.82	tracks/r/exercises/sieve/example.R
trackler-2.2.1.81	tracks/r/exercises/sieve/example.R
trackler-2.2.1.80	tracks/r/exercises/sieve/example.R
trackler-2.2.1.79	tracks/r/exercises/sieve/example.R