2008-08-24 04:59:22 -04:00
|
|
|
USING: math math.private kernel sequences ;
|
|
|
|
|
IN: benchmark.empty-loop-1
|
|
|
|
|
|
|
|
|
|
: empty-loop-1 ( n -- )
|
|
|
|
|
[ drop ] each-integer ;
|
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
: empty-loop-1-benchmark ( -- )
|
2008-08-31 07:02:15 -04:00
|
|
|
50000000 empty-loop-1 ;
|
2008-08-24 04:59:22 -04:00
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
MAIN: empty-loop-1-benchmark
|
