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

USING: math math.private kernel sequences ;
IN: benchmark.empty-loop-2

: empty-loop-2 ( n -- )
    iota [ drop ] each ;

: empty-loop-2-benchmark ( -- )
    50000000 empty-loop-2 ;

MAIN: empty-loop-2-benchmark
Add some benchmarks 2008-08-24 04:59:22 -04:00			`USING: math math.private kernel sequences ;`
			`IN: benchmark.empty-loop-2`

			`: empty-loop-2 ( n -- )`
benchmarks: update for iota 2010-01-14 13:08:22 -05:00			`iota [ drop ] each ;`
Add some benchmarks 2008-08-24 04:59:22 -04:00
benchmark: rename main methods to be consistent. 2012-07-19 20:35:47 -04:00			`: empty-loop-2-benchmark ( -- )`
Oops, we weren't doing TCO in some cases 2008-08-31 06:40:29 -04:00			`50000000 empty-loop-2 ;`
Add some benchmarks 2008-08-24 04:59:22 -04:00
benchmark: rename main methods to be consistent. 2012-07-19 20:35:47 -04:00			`MAIN: empty-loop-2-benchmark`