benchmark.parse-fixnum: adding a fixnum parse benchmark.

2013-03-28 06:24:15 -07:00 · 2013-03-28 06:24:15 -07:00 · 6a4a7796ed
parent 677f87ae0d
commit 6a4a7796ed
1 changed files with 9 additions and 0 deletions
--- a/extra/benchmark/parse-fixnum/parse-fixnum.factor
+++ 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