extra/benchmark/parse-fixnum/parse-fixnum.factor

   1 USING: kernel math.parser sequences ;
   2 IN: benchmark.parse-fixnum
   3
   4 : parse-fixnum-benchmark ( -- )
   5     2,000,000 iota [
   6         [ number>string string>number ] [ assert= ] bi
   7     ] each ;
   8
   9 MAIN: parse-fixnum-benchmark