sort-benchmark ( -- )

Vocabulary

benchmark.sort

Inputs

None

Outputs

None

Definition

USING: kernel math sorting ;

IN: benchmark.sort

: sort-benchmark ( -- )
    10 [ numbers-to-sort sort drop ] times 5000
    [ alist-to-sort sort-keys drop ] times ;