benchmark.sort: changing to not depend on benchmark.random.

db4
John Benediktsson 2012-09-05 21:03:52 -07:00
parent 1a86af31f1
commit ebbfa70e87
1 changed files with 4 additions and 5 deletions

View File

@ -1,10 +1,9 @@
USING: kernel sequences sorting benchmark.random math.parser USING: io.files io.encodings.ascii kernel math math.parser
io.files io.encodings.ascii ; random sequences sorting ;
IN: benchmark.sort IN: benchmark.sort
: sort-benchmark ( -- ) : sort-benchmark ( -- )
random-numbers-path 10 300000 200 random-integers
ascii file-lines [ string>number ] map [ natural-sort drop ] curry times ;
natural-sort drop ;
MAIN: sort-benchmark MAIN: sort-benchmark