(nsieve) ( count i seq -- count )

Vocabulary

benchmark.nsieve-bytes

Inputs

count	an object
i	an object
seq	an object

Outputs

count

an object

Definition

USING: kernel math sequences sequences.private ;

IN: benchmark.nsieve-bytes

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