フィボナッチ数列の取得

---

　Math::Fibonacciモジュールを使用します。

use Math::Fibonacci qw(term series decompose);

my $term = term(10); # 10番目の数
print $term, "\n";

my @series = series(10); # 1番目から10番目の数
foreach (@series) {
	print $_, " ";
}
print "\n";

my $num = 100000;
my @sum = decompose($num); # Fibonacci数列の項の和に分解する
printf "%d = %s\n", $num, join(" + ", @sum);

---

関連項目

なし