extra/benchmark/interval-sets/interval-sets.factor

   1 ! Copyright (C) 2014 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: grouping interval-sets kernel math random sequences
   5 sorting ;
   6
   7 IN: benchmark.interval-sets
   8
   9 : interval-sets-benchmark ( -- )
  10     10,000 [ random-32 ] replicate natural-sort
  11     2 <groups> <interval-set>
  12     3,000,000 swap '[ random-32 _ interval-in? drop ] times ;
  13
  14 MAIN: interval-sets-benchmark