extra/benchmark/bloom-filters/bloom-filters.factor

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