factor/extra/benchmark/empty-loop-2/empty-loop-2.factor

11 lines
193 B
Factor

USING: math math.private kernel sequences ;
IN: benchmark.empty-loop-2
: empty-loop-2 ( n -- )
[ drop ] each ;
: empty-loop-main ( -- )
50000000 empty-loop-2 ;
MAIN: empty-loop-main