extra/benchmark/sort/sort.factor

   1 USING: kernel sequences sorting benchmark.random math.parser
   2 io.files io.encodings.ascii ;
   3 IN: benchmark.sort
   4
   5 : sort-benchmark ( -- )
   6     random-numbers-path
   7     ascii file-lines [ string>number ] map
   8     natural-sort drop ;
   9
  10 MAIN: sort-benchmark