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

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

: empty-loop-1 ( n -- )
    [ drop ] each-integer ;

: empty-loop-main ( -- )
    50000000 empty-loop-1 ;

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

			`: empty-loop-1 ( n -- )`
			`[ drop ] each-integer ;`

			`: empty-loop-main ( -- )`
Fix 2008-08-31 07:02:15 -04:00			`50000000 empty-loop-1 ;`
Add some benchmarks 2008-08-24 04:59:22 -04:00
			`MAIN: empty-loop-main`