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

benchmark.busy-loop: make sure fixnum math on 32-bit.

db4
John Benediktsson 2012-06-01 16:26:46 -07:00
parent 53b77247f0
commit 3c775f7bea
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/benchmark/busy-loop/busy-loop.factor
View File

@ -1,9 +1,15 @@
USING: kernel math ; USING: kernel math ;
IN: benchmark.busy-loop IN: benchmark.busy-loop
: busy-loop ( x -- n )
1,000 [
1,000 [
1,000 [ bitxor ] each-integer
] times
] times ; inline
: busy-loop-benchmark ( -- ) : busy-loop-benchmark ( -- )
1,000,000,000 [ 1 - dup 0 > ] loop drop ; 1337 [ busy-loop ] [ assert= ] bi ;
MAIN: busy-loop-benchmark MAIN: busy-loop-benchmark