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