sieve ( n -- primes )

Vocabulary

math.primes.erato.fast

Inputs

n

an object

Outputs

primes

an object

Definition

USING: kernel math math.primes.erato.fast.private sequences ;

IN: math.primes.erato.fast

:: sieve ( n -- primes )
    V{ 2 3 5 7 } clone :> primes n dup make-sieve
    [ dup n <= [ primes push ] [ drop ] if ] each-prime primes ;