斐波纳奇数列 非递归

代码一:

 

#!/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);
管理员在2009年8月13日编辑了该文章文章。 -->

阅读(694) | 评论(0) | 转发(0) |

0

上一篇：C++二维字符数组

下一篇：斐波纳奇数列 非递归

给主人留下些什么吧！~~

评论热议

请登录后评论。

登录 注册

关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6