benchmark.fib: give each benchmark a unique main method name.
parent
6f2968b404
commit
e8c13ebe40
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue