interval-sets-benchmark ( -- )

Vocabulary

benchmark.interval-sets

Inputs

None

Outputs

None

Definition

USING: grouping interval-sets kernel math random sequences
sorting ;

IN: benchmark.interval-sets

: interval-sets-benchmark ( -- )
    10000 [ random-32 ] replicate sort 2 <groups>
    <interval-set> 3000000 swap [ [ random-32 ] ] dip
    [ interval-in? drop ] curry compose times ;