1 USING: bloom-filters kernel math sequences ;
3 IN: benchmark.bloom-filters
5 : insert-data ( bloom-filter -- bloom-filter )
6 100 [ 2,000 iota [ over bloom-filter-insert ] each ] times ;
8 : test-hit ( bloom-filter -- bloom-filter )
9 100,000 [ 100 over bloom-filter-member? drop ] times ;
11 : test-miss ( bloom-filter -- bloom-filter )
12 1,000,000 [ 12345 over bloom-filter-member? drop ] times ;
14 : bloom-filters-benchmark ( -- )
15 0.01 2000 <bloom-filter> insert-data test-hit test-miss drop ;
17 MAIN: bloom-filters-benchmark