unmark-multiples ( i upper sieve -- )

Vocabulary

math.primes.erato.private

Inputs

i	an object
upper	an object
sieve	an object

Outputs

None

Definition

USING: kernel math math.private ;

IN: math.primes.erato.private

:: unmark-multiples ( i upper sieve -- )
    i 2 fixnum*fast :> step i i fixnum*fast
    [ dup upper <= ]
    [ [ sieve unmark ] [ step fixnum+fast ] bi ] while drop ;
    inline