extra/benchmark/csv/csv.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays csv kernel math.parser sequences ;
   4 IN: benchmark.csv
   5
   6 : csv-benchmark ( -- )
   7     1,000 200 iota [ number>string ] map <array>
   8     [ csv>string string>csv ] keep assert= ;
   9
  10 MAIN: csv-benchmark