(nsieve-bits) ( count i seq -- count )

Vocabulary

benchmark.nsieve-bits

Inputs

count	an object
i	an object
seq	an object

Outputs

count

an object

Definition

USING: kernel math sequences sequences.private ;

IN: benchmark.nsieve-bits

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