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

forcal

以Fibonacci递归程序为例进行比较。
$ n; W2 S8 l' ?2 p
% b0 R8 _1 M, u) aMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   $ Q5 t/ b' Y/ d: J) x0 T
2. if n == 0
   $ t, }; P7 B; D- A& `, B
3.   k=0;
   ) [$ W. m: F& D3 m) `
4.   return;) t1 O' ^3 L& T; V9 N) i
   
5. else if n == 1, G\" y/ d7 U0 b\" d* ?# |4 ?9 p
   
6.   k=1;$ a3 B* c7 Q, }+ ^
   
7.   return;
   % f0 i$ r& I, c5 n4 W% I, {
8. else) J9 ^( D. A0 i$ E- {
   
9.   k=fib(n - 1) + fib(n - 2);1 Q: [# ]) |0 I6 U) `! M- \8 Y) r
   
10.   return;0 |  |$ C2 E) @0 a; u0 W/ a
    
11. end
    . b5 ~# n+ O- }6 s) C
12. end

复制代码

运行结果：

1. tic;
   4 T5 g, @* @) j3 f! O9 ^( x' X\" P
2. fib(30)& U) A, r  `) x4 e4 g
   
3. toc
     s+ H; d6 Z8 y2 H
4. . ~7 X: b+ r( q/ r9 @7 p% ^3 \
   
5. ans =* \, X. i, K4 I! j7 f
   
6.       832040
   9 @! s' Z$ F4 \: {9 Y
7. 
   4 r\" y% K$ S8 \
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);
   : w\" ?8 c4 k! ?( \) ?' w- o
2. F(n)= which{
   1 i. d; u4 L2 L- Z  Z6 c3 E' N' w
3.     n == 0,
   / x( F. f\" A- ?6 d
4.         return(0),2 h$ _! T* R( s) C) y7 v) ^4 M
   
5.     n == 1,
   4 K/ [6 s& Z7 v- q
6.         return(1),
   : t, m$ f' m% v! [4 L
7.     return [F(n - 1) + F(n - 2)]
   - D8 `  N0 R# a5 M) h
8. };
   ) ~' t+ _* w8 P  `\" S: h
9. mvar:0 j7 S! r- v5 Q+ @& [3 V
   
10. t=sys::clock(),8 [# q$ H8 {; d+ p  u3 l6 H
    
11. F(30);
    5 N4 _/ g1 \2 l0 g, c* ^
12. [sys::clock()-t]/1000;

复制代码

结果：
$ d& Z" z8 N; F/ A832040.
4 P& e. a+ C5 k0.391  秒

二者效率相差数十倍。

不特戈舟

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