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

   1 USING: math math.private kernel sequences ;
   2 IN: benchmark.empty-loop-2
   3
   4 : empty-loop-2 ( n -- )
   5     <iota> [ drop ] each ;
   6
   7 : empty-loop-2-benchmark ( -- )
   8     50000000 empty-loop-2 ;
   9
  10 MAIN: empty-loop-2-benchmark