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

forcal

以Fibonacci递归程序为例进行比较。
: ?8 d3 W$ Q- f/ x5 o
- p6 W4 h. N% l7 b$ Z* U; jMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)3 U, f5 i- O! F$ t& \$ n6 ~; G
   
2. if n == 0% N% Z& d' i; I5 X, }4 W' y
   
3.   k=0;/ K5 T9 @: |1 K, D& V
   
4.   return;
   2 s& C8 Z  L: w9 P$ L
5. else if n == 1
   . O6 G2 }3 z' @; I6 L& R
6.   k=1;% U\" e) @0 T% `( o
   
7.   return;) j# ]5 b+ n' w, d
   
8. else
   7 _  D9 v3 K! X- F5 @6 |
9.   k=fib(n - 1) + fib(n - 2);0 Y4 s* i5 z, h* f5 X6 g3 W
   
10.   return;# w2 R( g7 I7 J2 u5 f
    
11. end
    5 s$ O% k6 N\" Y2 f\" p
12. end

复制代码

运行结果：

1. tic;# k0 v\" L  h! x! O% Z: L  w0 d
   
2. fib(30)! g\" D3 f) V* U  l' N( y
   
3. toc% c1 `6 G( U: Y7 ^
   
4. . R9 i9 o* w$ M/ K! L% o
   
5. ans =7 o, E$ z5 y& X' Q
   
6.       832040; C' j5 ^: R9 j' n7 F
   
7. ) T3 @& d# V, }1 E
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);7 Y. I# {3 |/ W0 v' e
   
2. F(n)= which{
   * H. I) g4 u. C2 `7 e; H
3.     n == 0,7 [. F8 O( J0 ]7 [
   
4.         return(0),
   + A  ]! @' y' O/ [1 S
5.     n == 1,6 ]  R4 u7 h9 d9 V% g\" P
   
6.         return(1),
   / e3 `8 i- \# j! P: J6 U\" C2 F
7.     return [F(n - 1) + F(n - 2)]  n4 d- |. `& L- `0 N4 H: q
   
8. };* h5 p: \& s; A3 S
   
9. mvar:' a2 ?# }! x/ s7 T1 F) S
   
10. t=sys::clock(),4 m- A& d$ u3 I9 L0 A4 T
    
11. F(30);6 A; \9 n0 p' ~/ G) p* `% t
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
$ S% [2 k4 n7 Y- E" f0.391  秒
* k8 h) B" F: a8 j  z/ z, h* {
二者效率相差数十倍。

不特戈舟

以后真的注意了。。。 楼主真好