benchmark.fib: give each benchmark a unique main method name.

db4
John Benediktsson 2012-07-18 21:17:34 -07:00
parent 6f2968b404
commit e8c13ebe40
6 changed files with 12 additions and 12 deletions

View File

@ -9,6 +9,6 @@ IN: benchmark.fib1
swap 1 fixnum-fast fast-fixnum-fib fixnum+fast
] if ;
: fib-main ( -- ) 34 fast-fixnum-fib 9227465 assert= ;
: fib1-benchmark ( -- ) 34 fast-fixnum-fib 9227465 assert= ;
MAIN: fib-main
MAIN: fib1-benchmark

View File

@ -8,6 +8,6 @@ IN: benchmark.fib2
1 fixnum- dup fixnum-fib swap 1 fixnum- fixnum-fib fixnum+
] if ;
: fib-main ( -- ) 34 fixnum-fib 9227465 assert= ;
: fib2-benchmark ( -- ) 34 fixnum-fib 9227465 assert= ;
MAIN: fib-main
MAIN: fib2-benchmark

View File

@ -4,6 +4,6 @@ IN: benchmark.fib3
: fib ( m -- n )
dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
: fib-main ( -- ) 34 fib 9227465 assert= ;
: fib3-benchmark ( -- ) 34 fib 9227465 assert= ;
MAIN: fib-main
MAIN: fib3-benchmark

View File

@ -17,6 +17,6 @@ C: <box> box
swap i>> swap i>> + <box>
] if ; inline recursive
: fib-main ( -- ) T{ box f 34 } tuple-fib i>> 9227465 assert= ;
: fib4-benchmark ( -- ) T{ box f 34 } tuple-fib i>> 9227465 assert= ;
MAIN: fib-main
MAIN: fib4-benchmark

View File

@ -14,6 +14,6 @@ SYMBOL: n
] if
] with-scope ;
: fib-main ( -- ) 30 namespace-fib 1346269 assert= ;
: fib5-benchmark ( -- ) 30 namespace-fib 1346269 assert= ;
MAIN: fib-main
MAIN: fib5-benchmark

View File

@ -9,6 +9,6 @@ IN: benchmark.fib6
] alien-callback
int { int } cdecl alien-indirect ;
: fib-main ( -- ) 32 fib drop ;
: fib6-benchmark ( -- ) 32 fib drop ;
MAIN: fib-main
MAIN: fib6-benchmark