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

Пример для версий rakudo-2010.08

Используется рекурсивное определение чисел Фибоначчи. ~ — оператор конкатенации. $_ — переменная по умолчанию, в данном случае счетчик цикла.

sub fibonacci($n) {
  $n > 1 or return $n;
  return fibonacci($n-1) + fibonacci($n-2);
}

my $st = "";
for 1..16 {
  $st ~= fibonacci($_) ~ ", ";
}
say $st, "..."

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

Комментарии