11 lines
166 B
Perl
11 lines
166 B
Perl
|
sub fib {
|
||
|
|
local($n)=@_;
|
||
|
|
if( $n<2 ){
|
||
|
|
return $n;
|
||
|
|
} {
|
||
|
|
return &fib($n-2)+&fib($n-1)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print &fib(20), "\n";
|