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

forcal

以Fibonacci递归程序为例进行比较。
" D8 z: g+ S& @) T' E( q
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)' ], t  c1 L- ~# d) D
   
2. if n == 0
   ; l# \; \; s) t3 y
3.   k=0;
   ) }7 H+ }& \* g: {
4.   return;
   - r( R+ N  J\" Z4 M: }2 Q6 y4 o
5. else if n == 15 Y$ R( \! ?0 S; L1 l8 u
   
6.   k=1;% ]$ h) m9 j/ V' g
   
7.   return;
   1 e* x+ e5 \! u  {6 Z4 R
8. else6 B4 s1 ~: \6 v6 S\" j
   
9.   k=fib(n - 1) + fib(n - 2);; X4 e. U* {* J' O
   
10.   return;8 ]8 f4 L# G5 @7 L
    
11. end
    \" v; o; Q: e) d0 {- S: ^
12. end

复制代码

运行结果：

1. tic;
   ' c) m) f3 I' t7 C7 A) w6 q
2. fib(30)
   0 a; d  s5 J' k$ b2 M2 \
3. toc
   * @- V; D1 E8 p* X+ d
4. 7 `; D! s! ]% g+ v8 g* v
   
5. ans =
   % s% g& H8 F9 r6 P% ^& e\" \
6.       832040/ r# N) `9 `$ S# h$ B
   
7. + ^2 m. ?5 C6 e5 D4 E8 Z
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

1 \5 B$ Z7 |& k5 r' p! f3 M. DForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);( h4 ^- `, L) \# j' T, [\" h
   
2. F(n)= which{
   * H9 F/ ^2 E6 P5 Q  j7 W
3.     n == 0,+ R. F# |7 Z0 Y
   
4.         return(0),
   ( ?  H1 ~% W+ }& j+ W\" C. M
5.     n == 1,9 ?1 X: V7 v$ V
   
6.         return(1),: R* B  D$ N& T5 {* h7 Q5 G$ m8 B
   
7.     return [F(n - 1) + F(n - 2)]
   3 L! ^1 o0 ]- T, c6 t
8. };9 n; Z8 Z3 P4 V! a0 Z3 t( o  M
   
9. mvar:3 w1 k# e. i- K4 P- O
   
10. t=sys::clock(),/ |# w8 b/ A5 S0 i
    
11. F(30);
    1 @& B\" C/ {  D
12. [sys::clock()-t]/1000;

复制代码

结果：
0 V( J" M+ ?, _: h" Z5 P7 [7 J832040.
0.391  秒
: d; H8 L9 X+ P& _6 }8 l3 L
二者效率相差数十倍。

不特戈舟

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