极限测试之Matlab与Forcal的递归函数调用效率

以Fibonacci递归程序为例进行比较。

Matlab 2009a的Fibonacci函数定义：

function k=fib(n) if n == 0 k=0; return; else if n == 1 k=1; return; else k=fib(n - 1) + fib(n - 2); return; end end

运行结果：

tic; fib(30) toc ans = 832040 Elapsed time is 26.315245 seconds.

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Forcal 9（OpenFC演示）的Fibonacci函数及代码：

SetRealStackMax(1000); F(n)= which{ n == 0, return(0), n == 1, return(1), return [F(n - 1) + F(n - 2)] }; mvar: t=sys::clock(), F(30); [sys::clock()-t]/1000;

结果：
832040.
0.391秒

二者效率相差数十倍。