バケットソートと組み合わせるって手があるか。ま、「はいはい既出既出」ってことで。計算量的にもぱっと見そんなによくはなさそうだし。 my @fib_list = (1, 2); sub fib { my $num = shift; $fib_list[$num] ||= fib($num - 1) + fib($num - 2); }