15 lines
394 B
Factor
15 lines
394 B
Factor
! 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
|