5 lines
85 B
Perl
5 lines
85 B
Perl
|
sub fibRec {
|
||
|
|
my $n = shift;
|
||
|
|
$n < 2 ? $n : fibRec($n - 1) + fibRec($n - 2);
|
||
|
|
}
|