factor: trim using lists

[factor.git] / extra / benchmark / nsieve-bits / nsieve-bits.factor

diff --git a/extra/benchmark/nsieve-bits/nsieve-bits.factor b/extra/benchmark/nsieve-bits/nsieve-bits.factor
index 8d56bd935b1aa5d6c88386eabeb78fe5f667f736..9d4069e6def9fff0e42e5940bcde97f59fa53ec1 100644 (file)
--- a/extra/benchmark/nsieve-bits/nsieve-bits.factor
+++ b/extra/benchmark/nsieve-bits/nsieve-bits.factor
@@ -1,5 +1,5 @@
 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 -- )
@@ -27,11 +27,11 @@ IN: benchmark.nsieve-bits
     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