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

forcal

以Fibonacci递归程序为例进行比较。
* _2 m' Y+ Z: l# `, M
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)3 I/ ?. r  [  S: w( ~& K( g
   
2. if n == 03 H$ |3 f: S& d9 f6 {7 v$ o
   
3.   k=0;; P2 N7 f% c4 I# {: B. ~) |
   
4.   return;; R# {- {& C% S% D1 i
   
5. else if n == 1
   . @* d7 E( E+ D+ a! p1 _
6.   k=1;
   ' c4 i7 U& h' M  K9 o5 p
7.   return;
   ( D7 s$ Q7 r* l5 k* I$ D. M
8. else
   + M! E  ], X\" r& k
9.   k=fib(n - 1) + fib(n - 2);
   9 R( Y9 s3 \9 x8 S+ |  m0 n2 b
10.   return;* X& n% R6 J/ `% y# O) M
    
11. end
    9 }9 u% H2 |5 w' Z' _
12. end

复制代码

运行结果：

1. tic;* U6 m. z2 j: @; @$ P9 G\" z  D5 D\" J
   
2. fib(30)4 t- a. S& @# {
   
3. toc
   ! M0 ?6 a3 ^+ f5 a, z6 o
4. 
   ; x# A: D8 u0 h0 p  R4 n
5. ans =
   \" t9 Z! ~7 `3 j( x* f4 D
6.       8320405 G* ]+ j& D, i& d( M
   
7. 7 E) b& k7 R7 z; ~, [( V  H+ \
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
. S* @' H. ]2 A3 U
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);: L) T* |; p\" m2 ?
   
2. F(n)= which{
   - s% P  X- H' n7 P0 G' A) j
3.     n == 0,
   # q6 m  _3 N+ M5 `; u0 `$ ?
4.         return(0),
   \" p) r) K+ q' W# ~8 ?( J
5.     n == 1,
   - A/ l0 S. ~6 Y1 g- H6 e4 J% N
6.         return(1),. h6 {/ k1 X6 ?' C
   
7.     return [F(n - 1) + F(n - 2)]
   8 I; J0 ^0 m6 `) m4 {' }
8. };, a' c  ~  U% Q8 k% H1 m2 K+ l
   
9. mvar:* }/ X0 n; _$ _; l  E0 F
   
10. t=sys::clock(),
    ) y( _+ N$ T& o5 T/ T) `
11. F(30);4 Y2 ^, N7 V9 Z
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
* F# V. |9 d) g% D9 a7 W0.391  秒
. `, S" i" \) u3 V" l1 z
二者效率相差数十倍。

不特戈舟

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