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

   1 USING: math.private kernel ;
   2 IN: benchmark.empty-loop-0
   3
   4 : empty-loop-0 ( n -- )
   5     dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;
   6
   7 : empty-loop-0-benchmark ( -- )
   8     50000000 empty-loop-0 ;
   9
  10 MAIN: empty-loop-0-benchmark