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

forcal

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

' h5 y9 w# p. F! pMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)! r6 k% a1 z7 l+ T
   
2. if n == 0
   4 x1 A7 k% U: S
3.   k=0;
   \" U* V\" l( Q5 n* x
4.   return;4 M4 ?$ K% n' b1 B% \/ H/ ~% h& ~
   
5. else if n == 1$ Q\" P\" Z: X* z  U% v
   
6.   k=1;\" o8 z. x: ^. F7 x) e0 T/ I6 p
   
7.   return;
   9 Q. W% ]/ Y/ w: T* N
8. else
   1 o9 }; y( c$ ]5 f. h. J
9.   k=fib(n - 1) + fib(n - 2);6 b' l7 k7 E5 L/ i
   
10.   return;/ A\" o& M! @+ W3 F$ r* j
    
11. end
    - L; S\" X7 j' D& I
12. end

复制代码

运行结果：

1. tic;5 i( E\" j\" _( S) l# E& d. ]
   
2. fib(30)! y5 {& A0 B! H1 _. M
   
3. toc9 K  A8 C! H/ l5 |% ]3 m
   
4. ' ^/ y% O8 w+ {/ `
   
5. ans =# X  e2 i9 D( P+ c+ U& \# K- l
   
6.       832040
   * T; k5 D% z; I1 H2 ^# m3 i$ W
7. 
   & j\" _& ]. g& ?! y  u
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
, n1 s5 V# e7 F
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   : F. u' r, y4 b+ H
2. F(n)= which{
   ' Y: \! X2 S; L5 _\" K  R  Z' O
3.     n == 0,: N. e\" b3 [$ o# J# j
   
4.         return(0),
   # X\" y\" @, C* b/ `\" B5 p4 b/ Q' O
5.     n == 1,) h2 t  \\" @- ]
   
6.         return(1),
   3 }& L% B- b( N0 c. T, ?8 J
7.     return [F(n - 1) + F(n - 2)]
   ' q  f7 X' `1 s0 H- E: v\" p
8. };3 O! g! v\" i# ?- ^& }
   
9. mvar:3 a( A+ S1 \' x, }2 k
   
10. t=sys::clock(),
    . |5 [: s* l$ J\" G/ g
11. F(30);# f' k) b3 ~1 i* w  P/ f
    
12. [sys::clock()-t]/1000;

复制代码

结果：
5 E3 [/ a4 ]7 T' h0 v832040.
0.391  秒

二者效率相差数十倍。

不特戈舟

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