以前の値を使いまわすようにしないとたぶん遅い 書いた sub fib {my ($n) = shift;($n<2) and return $n;for (my ($i,$p1,$p2)=(1,1,0);($i<$n) or return $p1;($i,$p1,$p2)=($i+1,$p1+$p2,$p1)){}} あと処理系が末尾再帰を最適化しないと再帰は怖くて使えない

• algorithm