extra/benchmark/parse-bignum/parse-bignum.factor

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