diff --git a/extra/benchmark/parse-bignum/parse-bignum.factor b/extra/benchmark/parse-bignum/parse-bignum.factor new file mode 100644 index 0000000000..856a1a0f40 --- /dev/null +++ b/extra/benchmark/parse-bignum/parse-bignum.factor @@ -0,0 +1,9 @@ +USING: kernel math math.parser sequences ; +IN: benchmark.parse-bignum + +: parse-bignum-benchmark ( -- ) + 3000 iota [ + 2^ [ number>string string>number ] [ assert= ] bi + ] each ; + +MAIN: parse-bignum-benchmark