Perl递归练习：输出斐波纳奇数列

Perl递归练习：输出斐波纳奇数列
代码一：

#!/usr/bin/perl

use strict;

 
sub fun {
my ($agr) = @_;
if ($agr == 0){
return 1;
}elsif ($agr == 1){
return 1;
}else{
return (fun($agr-1)+fun($agr-2));
}
}
print "输入数字:";
chomp(my $biao = <STDIN>);

for(my $x = 0; $x <= ($biao-1);$x++) {
print fun($x)."\t";
}
print "回车退出";
<STDIN>;

代码二：

 

#!/usr/bin/perl

use strict;

sub fun {
my ($agr) = @_;
return 1 if ($agr == 0);
return 1 if ($agr == 1);
return (fun($agr-1)+fun($agr-2));
}
print "输入数字:";
chomp(my $biao = <STDIN>);

for(my $x = 0; $x <= ($biao-1);$x++) {
print fun($x)."\t";
}
print "\n回车退出";
<STDIN>;