#!/usr/bin/perl -w use strict; use bignum; my ($max) = @ARGV; my $r5 = 5**0.5; my $phy = (1+$r5)/2; my $fib = ($phy**$max - ((-$phy)**(-$max))) / $r5; print "$fib\n"; やはりこちらも大きな数値を食わすと正しい値を返さなかったりする。

#!/usr/bin/perl -w use strict; use bigint; sub fib{ my ($n) = @_; $n <= 1 ? 1 : fib($n-2)+fib($n-1) } my $f = fib(@ARGV); print "$f\n"; やはり大きな数値を求められないのでは実用性に欠ける…（なんの実用性？）。 またまだバグっているためまた今…