# # This software is Copyright 2005 by Elsevier Inc. You may use it # under the terms of the license at http://perl.plover.com/hop/LICENSE.txt . # ### ### fib ### ## Chapter 1 section 8.1 # 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); } }