benchmark.bloom-filters: more iterations now bloom-filters are faster.

diff --git a/extra/benchmark/bloom-filters/bloom-filters.factor b/extra/benchmark/bloom-filters/bloom-filters.factor
index 108da368b75244e27bf0d06f9c4372e53e777530..95b0a62b45af7df7ad936dcb910569f6a72d674b 100644 (file)
--- a/extra/benchmark/bloom-filters/bloom-filters.factor
+++ b/extra/benchmark/bloom-filters/bloom-filters.factor
@@ -1,11 +1,17 @@
-USING: bloom-filters kernel math ;
+USING: bloom-filters kernel math sequences ;
 
 IN: benchmark.bloom-filters
 
+: insert-data ( bloom-filter -- bloom-filter )
+    100 [ 2,000 iota [ over bloom-filter-insert ] each ] times ;
+
+: test-hit ( bloom-filter -- bloom-filter )
+    100,000 [ 100 over bloom-filter-member? drop ] times ;
+
+: test-miss ( bloom-filter -- bloom-filter )
+    1,000,000 [ 12345 over bloom-filter-member? drop ] times ;
+
 : bloom-filters-benchmark ( -- )
-    0.01 2000 <bloom-filter> 100,000 [
-        100 over bloom-filter-insert
-        100 over bloom-filter-member? drop
-    ] times drop ;
+    0.01 2000 <bloom-filter> insert-data test-hit test-miss drop ;
 
 MAIN: bloom-filters-benchmark