benchmark.interval-sets: adding a benchmark of interval-sets.
parent
3be0958e5d
commit
8e8d319943
|
@ -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
|
Loading…
Reference in New Issue