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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   6 i8 u4 A% C0 i4 G  j
2. if n == 0
     c& ~8 G6 |8 Y! b& i8 ~
3.   k=0;
   8 \2 l# z& V# `7 _3 y4 e
4.   return;8 ^& g: C\" H. w% t1 M0 A2 i( h+ n
   
5. else if n == 15 S( G! Q+ i; X
   
6.   k=1;
   $ F+ [: }) v& @+ c
7.   return;
   & d& T; |, J\" S
8. else
   6 ?, Z: M( B1 K! p- N
9.   k=fib(n - 1) + fib(n - 2);
   2 n9 c8 H; s4 q6 j0 X0 A! [
10.   return;: p1 ~7 N  L! `1 J0 l
    
11. end
    - {# U; t3 @# z* ]' m) h
12. end

复制代码

运行结果：

1. tic;
   5 p4 v9 T2 }6 J4 ]
2. fib(30)
   6 q4 q$ ~# q0 K4 N/ X$ Q3 T
3. toc9 l9 Y+ v1 C3 I  M
   
4. 6 A2 d7 e8 S; y; k! t
   
5. ans =4 @5 E5 k) a) K# t' O
   
6.       8320408 f' d% M2 }2 m$ W- \7 @3 C* M, b
   
7. 
   ! Z3 d' b+ ^% \) }+ Q+ F
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);
   & M3 u2 k( w+ q! l  y
2. F(n)= which{
   & r, ^3 z8 X5 @: ]; y
3.     n == 0,
   6 l: E4 i; \- V# ~7 U
4.         return(0),
   ; A* i& C; d; c' b
5.     n == 1,$ W* [$ X* r5 z4 @
   
6.         return(1),
   6 l; x9 w# P& e
7.     return [F(n - 1) + F(n - 2)]* i. [7 O3 f8 E8 f8 l; n
   
8. };; k: x5 g\" W( ?\" A( S2 u% d0 T
   
9. mvar:+ G' }4 r/ x/ O* M
   
10. t=sys::clock(),( p+ F9 V3 z. P& W
    
11. F(30);/ `, M! j, i4 t, z
    
12. [sys::clock()-t]/1000;

复制代码

结果：
- E6 {4 e3 t* d' ?* ]0 F832040.
0.391  秒

. b3 Q& c& {/ h) I/ q* O9 q二者效率相差数十倍。

不特戈舟

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