From e94857db50a89e4fa9f64ad887ebb027c32ed114 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 6 Sep 2012 07:54:29 -0700
Subject: [PATCH] benchmark.sort: make the numbers-to-sort at parse time...

---
 extra/benchmark/sort/sort.factor | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/extra/benchmark/sort/sort.factor b/extra/benchmark/sort/sort.factor
index 4171bb7196..2bf9df3251 100644
--- a/extra/benchmark/sort/sort.factor
+++ b/extra/benchmark/sort/sort.factor
@@ -1,9 +1,10 @@
-USING: io.files io.encodings.ascii kernel math math.parser
-random sequences sorting ;
+USING: io.files io.encodings.ascii kernel literals math
+math.parser random sequences sorting ;
 IN: benchmark.sort
 
+CONSTANT: numbers-to-sort $[ 300,000 200 random-integers ]
+
 : sort-benchmark ( -- )
-    10 300000 200 random-integers
-    [ natural-sort drop ] curry times ;
+    10 [ numbers-to-sort natural-sort drop ] times ;
 
 MAIN: sort-benchmark