perl 斐波那契数列

Posted 2021-04-17 Genetic evolution

斐波那契数列通项公式

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