@verb #6570:"get_primes" this none this rxd #2633
@program #6570:"get_primes" this none this
"$evefo:get_primes(<max>)"
if (!args)
  return {}
endif
max = toint(args[1])
if (max < 2)
  return {}
endif
x = (primes = {2, 3, 5, 7})[$] + 2
while (x < max)
  x = x + 2
  is_prime = 1
  for y in (primes[1..length(primes) / 2])
    is_prime = !is_prime ? 0 | !!(x % y)
    if (!is_prime)
      break
    elseif (y * y > x)
      break
    endif
    ticks_left() < 1000 ? suspend(0) | 0
  endfor
  primes = is_prime ? {@primes, x} | primes
endwhile
primes = primes[$] > max ? primes[1..$ - 1] | primes
return primes
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.