perl：BigInt 计算斐波那契数列

原创已于 2024-04-18 00:36:54 修改 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #BigInt #Fibonacci

于 2024-04-17 00:15:12 首次发布

perl 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了如何使用Perl的Math::BigInt模块计算不受整数位数限制的斐波那契数列，通过示例代码展示了如何实现并验证结果。

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

编写 fibonacci.pl 如下

#!/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