nsieve-bits ( m -- count )

Vocabulary

benchmark.nsieve-bits

Inputs

m

an object

Outputs

count

an object

Definition

USING: bit-arrays kernel math ;

IN: benchmark.nsieve-bits

: nsieve-bits ( m -- count )
    [ 0 2 ] dip 1 + <bit-array> dup set-bits (nsieve-bits) ;