14 lines
130 B
Plaintext
14 lines
130 B
Plaintext
|
|
|
|
###
|
|
### fib0
|
|
###
|
|
|
|
## Chapter 5 section 4.3.1
|
|
|
|
sub fib {
|
|
my $n = shift;
|
|
if ($n < 2) { return $n }
|
|
fib($n-2) + fib($n-1);
|
|
}
|