perl 斐波那契数列

Posted Genetic evolution

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了perl 斐波那契数列相关的知识，希望对你有一定的参考价值。

斐波那契数列通项公式

Perl语言实现

#!/usr/bin/perl -wuse strict;
{ my %fib;
 sub F { my $n = shift; return 0 if $n == 0; return 1 if $n == 1; if ( not exists $fib{$n} ) { $fib{$n} = F( $n - 1 ) + F( $n - 2 ); } return $fib{$n}; }}
print F( $ARGV[0] ), "\n";

例如，输入12则会显示144


以上是关于perl 斐波那契数列的主要内容，如果未能解决你的问题，请参考以下文章