《高阶Perl》——3.1 缓存修正递归-阿里云开发者社区

开发者社区> 华章出版社> 正文

《高阶Perl》——3.1 缓存修正递归

简介: 本节书摘来自华章计算机《高阶Perl》一书中的第3章,第3.1节,作者(美)Mark Jason Dominus,译 滕家海,更多章节内容可以访问云栖社区“华章计算机”公众号查看。

3.1 缓存修正递归

在1.8节看到递归函数有时耗时太长了,即便对简单的输入,那个Fibonacci函数就是这个问题的一个例子:

# Compute the number of pairs of rabbits alive in month n
sub fib {
  my $n = shift;
  if ($n < 2) { return $n }
  fib($n-2) + fib($n-1);
}

正如在1.8节看到的,这个函数对多数参数都运行缓慢,因为它在重复计算那些已经计算过的结果上浪费时间。例如,fib(20)需要计算fib(19)和fib(18),但是fib(19)也要计算fib(18),fib(17)也是一样,每次fib(18)调用时也都要计算。这是递归函数的一个普遍问题,而它就会被缓存修正。如果为fib添加缓存技术,那它就不会在第二次需要fib(18)的时候再从头开始计算它了,fib将简单地取回缓存的第一次计算fib(18)的结果。不用再担心会计算fib(17)三次或fib(16)五次,因为计算只进行一次,然后缓存的结果将于再次需要的时候被快速地取回。

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:

华章出版社

官方博客
官网链接