factor/extra/benchmark/fib6/fib6.factor

USING: math kernel alien ;
IN: benchmark.fib6

: fib ( x -- y )
    "int" { "int" } "cdecl" [
        dup 1 <= [ drop 1 ] [
            1 - dup fib swap 1- fib +
        ] if
    ] alien-callback
    "int" { "int" } "cdecl" alien-indirect ;

: fib-main ( -- ) 32 fib drop ;

MAIN: fib-main
Change socket benchmark 2008-03-01 15:23:41 -05:00			`USING: math kernel alien ;`
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			`IN: benchmark.fib6`
Change socket benchmark 2008-03-01 15:23:41 -05:00
Fixing everything for mandatory stack effects 2008-06-09 03:14:14 -04:00			`: fib ( x -- y )`
Change socket benchmark 2008-03-01 15:23:41 -05:00			`"int" { "int" } "cdecl" [`
			`dup 1 <= [ drop 1 ] [`
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			`1 - dup fib swap 1- fib +`
Change socket benchmark 2008-03-01 15:23:41 -05:00			`] if`
			`] alien-callback`
			`"int" { "int" } "cdecl" alien-indirect ;`

Tweak some benchmark parameters 2009-04-17 18:55:01 -04:00			`: fib-main ( -- ) 32 fib drop ;`
Change socket benchmark 2008-03-01 15:23:41 -05:00
			`MAIN: fib-main`