factor/library/test/benchmark/empty-loop.factor

IN: scratchpad
USE: compiler
USE: kernel
USE: math
USE: test

: empty-loop-1 ( n -- )
    [ ] times ; compiled

: empty-loop-2 ( n -- )
    [ drop ] times* ; compiled

[ ] [ 5000000 empty-loop-1 ] unit-test
[ ] [ 5000000 empty-loop-2 ] unit-test
some simple benchmarks 2004-08-23 23:27:55 -04:00			`IN: scratchpad`
merged stack continuations combinators and logic vocabularies into kernel vocabulary 2004-12-10 19:29:07 -05:00			`USE: compiler`
			`USE: kernel`
fix some overflow issues 2004-08-26 22:21:17 -04:00			`USE: math`
some simple benchmarks 2004-08-23 23:27:55 -04:00			`USE: test`

some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`: empty-loop-1 ( n -- )`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00			`[ ] times ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`: empty-loop-2 ( n -- )`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00			`[ drop ] times* ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`[ ] [ 5000000 empty-loop-1 ] unit-test`
			`[ ] [ 5000000 empty-loop-2 ] unit-test`