From 812c3e4cdfbc6610fd506d46d724a1affc3476ae Mon Sep 17 00:00:00 2001 From: John Benediktsson <mrjbq7@gmail.com> Date: Thu, 4 Apr 2013 07:10:30 -0700 Subject: [PATCH] benchmark.bloom-filters: more iterations now bloom-filters are faster. --- .../benchmark/bloom-filters/bloom-filters.factor | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/extra/benchmark/bloom-filters/bloom-filters.factor b/extra/benchmark/bloom-filters/bloom-filters.factor index 108da368b7..95b0a62b45 100644 --- 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