Rosetta Code

Sieve of Eratosthenes: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Jjuanhdez (talk | contribs)
2,217 edits
Sieve of Eratosthenes in various BASIC dialents (BASIC256, QBasic and True BASIC)
Eoraptor (talk | contribs)
1,336 edits
m →‎{{header|R}}: return correct type when n<2 (it's an integer vector, not a NULL list)
Line 15,182:
 
=={{header|R}}==
<lang rrsplus>sieve <- function(n) {
if (n < 2) returninteger(NULL0)
else {
lmt <- sqrt(n)
primes <- rep(TRUET, n)
primes[[1]] <- FALSEF
for(i in seq(lmtsqrt(n))) {
if if(primes[[i]]) {
primes[seq(i * i, n, by=i)] <- FALSEF
}
}
return( which(primes))▼
}
▲ return(which(primes))
}
 
Line 15,211 ⟶ 15,212:
'''Alternate Odds-Only Version'''
 
<lang rrsplus>sieve <- function(n) {
if (n < 2) return(NULLinteger(0))
lmt <- (sqrt(n) - 1) / 2
sz <- (n - 1) / 2
Retrieved from "https://rosettacode.org/wiki/Sieve_of_Eratosthenes"