Location : Home > Languages > Perl > Package Title : Math::Fibonacci |
![]() |
Math::Fibonacci - フィボナッチ級数の計算
$Revision: 1.5 $
単純な小数での丸め
use Math::Fibonacci qw(term series decompose); my $term = term ( 42 ); my @series = series ( 42 ); my @sum = decompose ( 65535 );
本モジュールはフィボナッチ級数に関するいくつかの関数を提供している。
term(), series() decompose(), isfibonacci()
term($n)
フィボナッチ級数の第 $n 項を返す。項は最速のアルゴリズム F(n) ~ g^n/sqrt(5) を用いて計算した。ただし g は黄金比、であり、 ~ は「最も近い整数を取る」を示すものとする。
series($n)
フィボナッチ数列の最初の $n 項を計算し返す。
decompose($int)
$int をフィボナッチ数の和に分解し、フィボナッチ数のリストを返す。
isfibonacci($int)
$int がフィボナッチ数であればフィボナッチ数列における項数を返し、そうでなければ non-true を返す。
Vipul Ved Prakash, <mail@vipul.net>
Copyright (c) 1999-2001, Vipul Ved Prakash.
本コードはフリーソフトウェアであり、 ARTISTIC ライセンス(ディストリビューション内に同梱)の下または Perl 本体と同等の条件で修正/再配布してもよい。
![]() |
Updated : 2006/10/25 |