[プログラム][perl]一般項で求めるパターンのフィボナッチ関数
#!/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 bignum; my ($max) = @ARGV; my $r5 = 5**0.5; my $phy = (1+$r5)/2; my $fib = ($phy**$max - ((-$phy)**(-$max))) / $r5; print "$fib\n";
やはりこちらも大きな数値を食わすと正しい値を返さなかったりする。