factor/extra/benchmark/fib6/fib6.factor

USING: math kernel alien alien.c-types ;
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 ;

: fib6-benchmark ( -- ) 32 fib drop ;

MAIN: fib6-benchmark
update a bunch of alien-callbacks and alien-indirects to use c-type words 2009-10-21 22:10:11 -04:00			`USING: math kernel alien alien.c-types ;`
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 )`
"cdecl" -> cdecl 2010-03-31 22:20:35 -04:00			`int { int } cdecl [`
Change socket benchmark 2008-03-01 15:23:41 -05:00			`dup 1 <= [ drop 1 ] [`
forgot one 2009-08-14 15:40:44 -04:00			`1 - dup fib swap 1 - fib +`
Change socket benchmark 2008-03-01 15:23:41 -05:00			`] if`
			`] alien-callback`
"cdecl" -> cdecl 2010-03-31 22:20:35 -04:00			`int { int } cdecl alien-indirect ;`
Change socket benchmark 2008-03-01 15:23:41 -05:00
benchmark.fib: give each benchmark a unique main method name. 2012-07-19 00:17:34 -04:00			`: fib6-benchmark ( -- ) 32 fib drop ;`
Change socket benchmark 2008-03-01 15:23:41 -05:00
benchmark.fib: give each benchmark a unique main method name. 2012-07-19 00:17:34 -04:00			`MAIN: fib6-benchmark`