benchmark.parse-float: add a float parse benchmark.

2013-03-28 11:41:57 -07:00 · 2013-03-28 11:41:57 -07:00 · ff39d3f53a
parent 02d9565732
commit ff39d3f53a
1 changed files with 12 additions and 0 deletions
--- a/extra/benchmark/parse-float/parse-float.factor
+++ b/extra/benchmark/parse-float/parse-float.factor
@ -0,0 +1,12 @@
+USING: kernel literals math.functions math.parser random
+sequences ;
+IN: benchmark.parse-float
+
+CONSTANT: test-floats $[ 100,000 random-units ]
+
+: parse-float-benchmark ( -- )
+    test-floats [
+        [ number>string string>number ] [ 1e-10 ~ t assert= ] bi
+    ] each ;
+
+MAIN: parse-float-benchmark