2008-08-24 04:59:22 -04:00
|
|
|
USING: math math.private kernel sequences ;
|
|
|
|
|
IN: benchmark.empty-loop-2
|
|
|
|
|
|
|
|
|
|
: empty-loop-2 ( n -- )
|
2010-01-14 13:08:22 -05:00
|
|
|
iota [ drop ] each ;
|
2008-08-24 04:59:22 -04:00
|
|
|
|
|
|
|
|
: empty-loop-main ( -- )
|
2008-08-31 06:40:29 -04:00
|
|
|
50000000 empty-loop-2 ;
|
2008-08-24 04:59:22 -04:00
|
|
|
|
|
|
|
|
MAIN: empty-loop-main
|
