perl:BigInt 计算 斐波那契数列

use Math::BigInt; 计算 斐波那契数列(Fibonacci sequence),不受长整型位数限制。

编写 fibonacci.pl 如下

perl 复制代码
#!/usr/bin/perl
use strict;
use warnings;
use Math::BigInt;
sub bigint { Math::BigInt->new(shift); }

# 定义一个子程序来计算Fibonacci数列的第n个数字
sub fibonacci {
    my ($n) = @_;
    my $x = bigint(0);
    my $y = bigint(1);
    while($n >0){
        ($x, $y) = ($y, $x+$y);
        $n--;
    }
    return $x
}
 
# 获取用户输入
print "请输入一个正整数: ";
chomp(my $n = <STDIN>);
 
# 检查输入是否为正整数
if ($n !~ /^\d+$/) {
    print "错误:输入必须是正整数。\n";
    exit 1;
}
 
# 计算并输出Fibonacci数列的第n个数字
my $number = fibonacci(int($n));
print "fibonacci($n)= $number\n";
#print "Fibonacci数列的第$n个数字是: $number\n";

运行 perl fibonacci.pl

请输入一个正整数: 365

fibonacci(365)= 8531073606282249384383143963212896619394786170594625964346924608389878465365

用 python 校验,以上结果正确:

python fibonacci.py 365

fib1(365)= 8531073606282249384383143963212896619394786170594625964346924608389878465365

相关推荐
开开心心就好2 天前
电脑息屏工具,一键黑屏超方便
开发语言·javascript·电脑·scala·erlang·perl
ChaITSimpleLove7 天前
.NET9 实现斐波那契数列(FibonacciSequence)性能测试
.net·性能测试·斐波那契数列·fibonacci·benchmarkdotnet·datadog.trace
快快网络-三七7 天前
云计算环境下的成本控制策略:按需计费与资源弹性扩展详解
服务器·开发语言·数据库·安全·云计算·perl
2501_9111212319 天前
OpenStack 入门与实践
服务器·php·perl
vortex51 个月前
Perl One-liner 数据处理——基础语法篇【匠心】
开发语言·scala·perl
Bin Watson2 个月前
解决 Builroot 系统编译 perl 编译报错问题
开发语言·scala·perl
q567315233 个月前
用Perl和HTTP::Tiny库的爬虫
爬虫·http·perl
想做富婆3 个月前
Strawberry perl的下载,查询版本号,配置Path环境变量,查找perl解释器的位置
开发语言·perl
空气中的臭氧3 个月前
解决orzdba采集数据库性能指标不全的问题
数据库·perl·orzdba
敖云岚4 个月前
【云原生技术】容器技术的发展史
开发语言·云原生·perl