Числа Фибоначчи в Perl

Пример для версий Perl 5.12.1

Используется рекурсивное определение чисел Фибоначчи.

sub fibonacci {
  my $n = shift;
  $n < 3 ? 1 : fibonacci($n-1) + fibonacci($n-2)
}
 
foreach (1..16) {
  print fibonacci($_), ", ";
}
print "..."

Комментарии