benchmark.interval-sets: adding a benchmark of interval-sets.

db4
John Benediktsson 2014-05-20 19:16:53 -07:00
parent 3be0958e5d
commit 8e8d319943
1 changed files with 14 additions and 0 deletions

View File

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