(nsieve) ( count i seq -- count )

Vocabulary

benchmark.nsieve

Inputs

count	an object
i	an object
seq	an object

Outputs

count

an object

Definition

USING: kernel math sequences sequences.private ;

IN: benchmark.nsieve

: (nsieve) ( count i seq -- count )
    2dup length < [
        2dup nth-unsafe
        [ over dup 2 * pick clear-flags [ 1 + ] 2dip ] when
        [ 1 + ] dip (nsieve)
    ] [ 2drop ] if ; inline recursive