factor/library/test/benchmark/empty-loop.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
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00			`USING: compiler kernel math sequences test ;`
some simple benchmarks 2004-08-23 23:27:55 -04:00
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 -- )`
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00			`[ ] repeat ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00			`: empty-loop-3 ( n -- )`
			`[ drop ] each ; 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`
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00			`[ ] [ 5000000 empty-loop-3 ] unit-test`