splay-benchmark ( -- )

Vocabulary

benchmark.splay

Inputs

None

Outputs

None

Definition

USING: assocs kernel random sequences sorting trees.splay ;

IN: benchmark.splay

: splay-benchmark ( -- )
    100000 initial-alist 10000 cut
    [ >splay ] [ randomize 10000 head ] bi change-random
    keys dup sort assert= ;