USING: kernel math ;
IN: benchmark.busy-loop
: busy-loop ( x -- n )
1,000 [
1,000 [ bitxor ] each-integer
] times
] times ; inline
: busy-loop-benchmark ( -- )
1337 [ busy-loop ] [ assert= ] bi ;
MAIN: busy-loop-benchmark