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

forcal

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

$ `& U: d+ p& b/ H4 r2 E% N* mMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)\" F. c& F  Z% g) X, e* L) u' O6 F
   
2. if n == 0
   7 q; T* r8 r1 J& h  Q/ w6 h- u
3.   k=0;' S2 m* i: v% a: u: `+ I( E
   
4.   return;; @3 I& u9 P6 x  o  n
   
5. else if n == 19 l8 z$ @7 z1 J+ i
   
6.   k=1;  C\" n% A  x- E# v1 G& N* r# }) _/ q
   
7.   return;  k/ V' o( b3 M6 b
   
8. else
   / S5 L1 w5 o, s+ N6 u2 h
9.   k=fib(n - 1) + fib(n - 2);( t. B! C5 F6 x8 R
   
10.   return;$ U* v\" {; j- w0 I9 J4 h
    
11. end
    4 q5 P% V' A5 _  J
12. end

复制代码

运行结果：

1. tic;- ]  v% C; `\" z$ N  Q
   
2. fib(30)4 S; u$ d. V7 i) b% z* V: u
   
3. toc
   , W, P  G) z\" p% \\" m: N7 r2 L
4. 
   $ c* A1 T; n* q
5. ans =\" T/ @/ A7 V9 j9 R
   
6.       8320405 L. }2 g' i5 d# t+ Q$ |
   
7. , ]/ J\" P( s6 k; P: Y/ g- D% F
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);
   ! {% |7 h. }# `& h! |
2. F(n)= which{
   % p# r2 ~7 J; S2 R: n
3.     n == 0,2 ^& w/ \4 d4 N
   
4.         return(0),
   - z\" |% O6 J5 y& b  N
5.     n == 1,  s& B$ @2 I  {( ~8 Y
   
6.         return(1),/ z3 r\" t! S) X0 L. k  v2 B3 \
   
7.     return [F(n - 1) + F(n - 2)]
   4 k& _0 r1 T( S\" h  |) z
8. };
   , D\" @\" ^* h0 M- K4 ^* Q) [& V
9. mvar:
   ! r; ~+ @( P7 f; z, a! _
10. t=sys::clock(),  n$ E& V3 Y2 k8 s* e  }* L
    
11. F(30);/ P5 t5 Z8 ]/ L: a) r: ?2 C
    
12. [sys::clock()-t]/1000;

复制代码

结果：
! S* r( |$ _0 P  h& q. b, E$ o9 n1 C832040.
8 {" ^7 ]# c( `, h0 }$ c0.391  秒
  `% R0 M9 B* x# R1 ?" U# o2 u# N
3 t0 B5 R. x$ x1 C* {. G二者效率相差数十倍。

不特戈舟

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