steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.busy-loop: adding a busy-loop "control" benchmark.

db4
John Benediktsson 2012-06-01 16:15:56 -07:00
parent 3447136e2a
commit 53b77247f0
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/benchmark/busy-loop/busy-loop.factor Normal file
View File

@ -0,0 +1,9 @@
USING: kernel math ;
IN: benchmark.busy-loop
: busy-loop-benchmark ( -- )
1,000,000,000 [ 1 - dup 0 > ] loop drop ;
MAIN: busy-loop-benchmark