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

2012-09-05 21:03:52 -07:00 · 2012-09-05 21:03:52 -07:00 · ebbfa70e87
parent 1a86af31f1
commit ebbfa70e87
1 changed files with 4 additions and 5 deletions
--- a/extra/benchmark/sort/sort.factor
+++ b/extra/benchmark/sort/sort.factor
@ -1,10 +1,9 @@
-USING: kernel sequences sorting benchmark.random math.parser
-io.files io.encodings.ascii ;
+USING: io.files io.encodings.ascii kernel math math.parser
+random sequences sorting ;
 IN: benchmark.sort

 : sort-benchmark ( -- )
-    random-numbers-path
-    ascii file-lines [ string>number ] map
-    natural-sort drop ;
+    10 300000 200 random-integers
+    [ natural-sort drop ] curry times ;

 MAIN: sort-benchmark