16 lines
332 B
Factor
16 lines
332 B
Factor
IN: temporary
|
|
USING: compiler kernel math sequences test ;
|
|
|
|
: empty-loop-1 ( n -- )
|
|
[ ] times ; compiled
|
|
|
|
: empty-loop-2 ( n -- )
|
|
[ ] repeat ; compiled
|
|
|
|
: empty-loop-3 ( n -- )
|
|
[ drop ] each ; compiled
|
|
|
|
[ ] [ 5000000 empty-loop-1 ] unit-test
|
|
[ ] [ 5000000 empty-loop-2 ] unit-test
|
|
[ ] [ 5000000 empty-loop-3 ] unit-test
|