实现尾递归优化的一点思路

3P主义

不精确的概括，所谓尾递归，就是在函数里最后一条里调用自身；如果没有尾递归优化的话，在栈上要保存无数个函数的返回地址；在很多函数式语言里，有所谓的尾递归优化；在 Perl 里如何达到尾递归的效果？可以考虑借助 goto ：

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. print func(100);
   
8. 
   
9. sub func {
   
10.     my ($n, $sum) = @_;
    
11.     $sum = 1 if (not defined $sum);
    
12. 
    
13.     if ($n <= 1) {
    
14.         return $sum;
    
15.     }
    
16.     else {
    
17.         $sum *= $n;
    
18.         @_ = ($n - 1, $sum);
    
19.         goto(&func);
    
20.     }
    
21. }
    
22. 
    
23. sub func2 {
    
24.     my ($n, $sum) = @_;
    
25.     $sum = 1 if (not defined $sum);
    
26. 
    
27.     if ($n <= 1) {
    
28.         return $sum;
    
29.     }
    
30.     else {
    
31.         $sum *= $n;
    
32.         return func2($n - 1, $sum);
    
33.     }
    
34. }
    

复制代码