mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
10 lines
166 B
Perl
10 lines
166 B
Perl
sub fib {
|
|
local($n)=@_;
|
|
if( $n<2 ){
|
|
return $n;
|
|
} {
|
|
return &fib($n-2)+&fib($n-1)
|
|
}
|
|
}
|
|
|
|
print &fib(20), "\n";
|