factor/extra/benchmark/fib4/fib4.factor

USING: accessors math kernel debugger ;
IN: benchmark.fib4

TUPLE: box { i read-only } ;

C: <box> box

: tuple-fib ( m -- n )
    dup i>> 1 <= [
        drop 1 <box>
    ] [
        i>> 1 - <box>
        dup tuple-fib
        swap
        i>> 1 - <box>
        tuple-fib
        swap i>> swap i>> + <box>
    ] if ; inline recursive

: fib4-benchmark ( -- ) T{ box f 34 } tuple-fib i>> 9227465 assert= ;

MAIN: fib4-benchmark
new accessors 2008-08-30 21:38:07 -04:00			`USING: accessors math kernel debugger ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: benchmark.fib4`

Fix escape analysis bug; speedup on fib4 benchmark 2008-08-31 10:03:03 -04:00			`TUPLE: box { i read-only } ;`
Initial import 2007-09-20 18:09:08 -04:00
			`C: <box> box`

			`: tuple-fib ( m -- n )`
new accessors 2008-08-30 21:38:07 -04:00			`dup i>> 1 <= [`
Initial import 2007-09-20 18:09:08 -04:00			`drop 1 <box>`
			`] [`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`i>> 1 - <box>`
Initial import 2007-09-20 18:09:08 -04:00			`dup tuple-fib`
			`swap`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`i>> 1 - <box>`
Initial import 2007-09-20 18:09:08 -04:00			`tuple-fib`
new accessors 2008-08-30 21:38:07 -04:00			`swap i>> swap i>> + <box>`
Fix escape analysis bug; speedup on fib4 benchmark 2008-08-31 10:03:03 -04:00			`] if ; inline recursive`
Initial import 2007-09-20 18:09:08 -04:00
benchmark.fib: give each benchmark a unique main method name. 2012-07-19 00:17:34 -04:00			`: fib4-benchmark ( -- ) T{ box f 34 } tuple-fib i>> 9227465 assert= ;`
Initial import 2007-09-20 18:09:08 -04:00
benchmark.fib: give each benchmark a unique main method name. 2012-07-19 00:17:34 -04:00			`MAIN: fib4-benchmark`