2012-06-01 19:15:56 -04:00
|
|
|
USING: kernel math ;
|
|
|
|
|
|
|
|
|
|
IN: benchmark.busy-loop
|
|
|
|
|
|
2012-06-01 19:26:46 -04:00
|
|
|
: busy-loop ( x -- n )
|
|
|
|
|
1,000 [
|
|
|
|
|
1,000 [
|
|
|
|
|
1,000 [ bitxor ] each-integer
|
|
|
|
|
] times
|
|
|
|
|
] times ; inline
|
|
|
|
|
|
2012-06-01 19:15:56 -04:00
|
|
|
: busy-loop-benchmark ( -- )
|
2012-06-01 19:26:46 -04:00
|
|
|
1337 [ busy-loop ] [ assert= ] bi ;
|
2012-06-01 19:15:56 -04:00
|
|
|
|
|
|
|
|
MAIN: busy-loop-benchmark
|
