benchmark.bloom-filters: adding a benchmark for bloom filters.

2013-04-03 15:10:52 -07:00 · 2013-04-03 15:10:52 -07:00 · d47a306557
parent ec74336c7b
commit d47a306557
1 changed files with 11 additions and 0 deletions
--- a/extra/benchmark/bloom-filters/bloom-filters.factor
+++ b/extra/benchmark/bloom-filters/bloom-filters.factor
@ -0,0 +1,11 @@
+USING: bloom-filters kernel math ;
+
+IN: benchmark.bloom-filters
+
+: bloom-filters-benchmark ( -- )
+    0.01 2000 <bloom-filter> 100,000 [
+        100 over bloom-filter-insert
+        100 over bloom-filter-member? drop
+    ] times drop ;
+
+MAIN: bloom-filters-benchmark