斐波纳奇数列 非递归

代码一:

 

#!/usr/bin/perl

use strict;
sub funmix {
my ($agr1,$agr2) = @_;
return $$agr1 < $$agr2 ? $agr1 : $agr2;
}
sub funmax {
my ($agr1,$agr2) = @_;
return $$agr1 > $$agr2 ? $agr1 : $agr2;
}
print "输入数字:";
chomp(my $biao = <STDIN>);

my $n1 = 0;
my $n2 = 1;
for(my $x = 1; $x <= $biao;$x++) {
${funmix(\$n1,\$n2)} = $n1 + $n2;
print ${funmax(\$n1,\$n2)};
print "\n";
}
print "\n回车退出";
<STDIN>;


 

代码二：

 

#!/usr/bin/perl


use strict;

print "输入数字:";
chomp(my $biao = <STDIN>);

my $n1 = 0;
my $n2 = 1;
for(my $x = 1; $x <= $biao;$x++) {
($n1 < $n2 ? $n1 : $n2) = $n1 + $n2;
print ($n1 > $n2 ? $n1 : $n2);
print "\n";
}
print "\n回车退出";
<STDIN>;