USING: math math.parser sequences sequences.private kernel
-bit-arrays make io math.ranges multiline fry locals ;
+bit-arrays make io ;
IN: benchmark.nsieve-bits
: clear-flags ( step i seq -- )
print ; inline
: nsieve-bits-main ( n -- )
- [ 2^ 10000 * nsieve-bits. ]
+ [ 2^ 10000 * nsieve-bits. ]
[ 1 - 2^ 10000 * nsieve-bits. ]
[ 2 - 2^ 10000 * nsieve-bits. ]
tri ;
-: nsieve-bits-main* ( -- ) 11 nsieve-bits-main ;
+: nsieve-bits-benchmark ( -- ) 11 nsieve-bits-main ;
-MAIN: nsieve-bits-main*
+MAIN: nsieve-bits-benchmark