apps/benchmarks/empty-loop.factor

   1 IN: temporary
   2 USING: compiler kernel math math-internals sequences test ;
   3
   4 : empty-loop-0 ( n -- )
   5     dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;
   6
   7 : empty-loop-1 ( n -- )
   8     [ ] times ;
   9
  10 : empty-loop-2 ( n -- )
  11     [ ] repeat ;
  12
  13 : empty-loop-3 ( n -- )
  14     [ drop ] each ;
  15
  16 [ ] [ 5000000 empty-loop-0 ] unit-test
  17 [ ] [ 5000000 empty-loop-1 ] unit-test
  18 [ ] [ 5000000 empty-loop-2 ] unit-test
  19 [ ] [ 5000000 empty-loop-3 ] unit-test