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

forcal

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

7 L7 G- x7 T* D+ a8 I! N7 s3 X) aMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   $ X1 [\" u9 y, ?, \2 R. _
2. if n == 02 @, C5 G/ t7 c* K4 h( U
   
3.   k=0;
   / U% M0 m; A\" P
4.   return;0 y9 e/ k* |* B) @% z9 o' v7 L6 @
   
5. else if n == 1! \5 r) t) u- m5 F5 }
   
6.   k=1;
   / W( Y\" Q) _- f
7.   return;
   $ I) {\" G8 q0 |) G, ^- T6 ?0 U, k
8. else8 p3 N; W* W( R. h+ r9 u
   
9.   k=fib(n - 1) + fib(n - 2);
   ' K% ~: S: I- j3 C\" k7 `/ \! f
10.   return;$ a0 c( r. w- @; ?; v& J' J
    
11. end  _3 L  Q8 Z3 ^* [; y4 l
    
12. end

复制代码

运行结果：

1. tic;. p0 t  T: L6 T8 D0 T% D
   
2. fib(30)
   # i% `; H  D; F
3. toc
   . _1 h; ^5 h) i( D! O. g\" z; k
4. 1 [% h\" g1 B; l
   
5. ans =5 A! Z# A( k- k0 d- d
   
6.       832040
   ( w; d+ e2 ^( z) D% U' q
7. * Y& x. [6 |$ R  _
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
$ q$ y1 C1 I8 ?
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);2 }5 W- P+ u; N\" w
   
2. F(n)= which{& `. R) H  {. Q. ]
   
3.     n == 0,. n3 `0 i5 t' _8 [
   
4.         return(0),
   2 I5 k& h7 A3 F: I, f* _
5.     n == 1,  f, [7 E' P4 v5 c8 t
   
6.         return(1),1 n) ~9 U: y9 T/ K0 g
   
7.     return [F(n - 1) + F(n - 2)]6 T6 p. k9 j& Q0 S$ L
   
8. };
   ! R6 r- Q5 G& Z6 D; t6 p/ x; j, O
9. mvar:8 l; Q1 Q# w! x4 a
   
10. t=sys::clock(),
    ' \# W1 n% _8 r7 |
11. F(30);
    + x& N9 g+ i( w\" A8 y3 `$ T
12. [sys::clock()-t]/1000;

复制代码

结果：
9 o1 V- h- N0 {9 f4 ]832040.
6 u( r" I% Z0 n0.391  秒

二者效率相差数十倍。

不特戈舟

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