20 lines
246 B
Plaintext
20 lines
246 B
Plaintext
|
|
|
|
###
|
|
### fib-automemo
|
|
###
|
|
|
|
## Chapter 3 section 4
|
|
|
|
use Memoize;
|
|
memoize 'fib';
|
|
|
|
# Compute the number of pairs of rabbits alive in month n
|
|
sub fib {
|
|
my ($month) = @_;
|
|
if ($month < 2) { 1 }
|
|
else {
|
|
fib($month-1) + fib($month-2);
|
|
}
|
|
}
|