Perlでフィボナッチ数列のテスト

fibo.pl

sub fibo {
  local($i) = $_[0];
  
  if ($i == 1) { return 0; }
  if ($i == 2) { return 1; }
  return &fibo($i-1) + &fibo($i-2);
}

for (local($i)=1; $i<31; $i++) {
  print(&fibo($i) . "\n");
}