benchmark.yield: testing lots of yields.

2012-08-01 10:51:37 -07:00 · 2012-08-01 10:51:37 -07:00 · 0e90344eef
parent 02a3b7c437
commit 0e90344eef
1 changed files with 9 additions and 0 deletions
--- a/extra/benchmark/yield/yield.factor
+++ b/extra/benchmark/yield/yield.factor
@ -0,0 +1,9 @@
+! Copyright (C) 2012 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license.
+USING: math threads ;
+IN: benchmark.yield
+
+: yield-benchmark ( -- )
+    100,000 [ yield ] times ;
+
+MAIN: yield-benchmark