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 -- )`
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota-tuple ... ; 2017-06-01 17:59:35 -04: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`