t/testy.pl

   1 sub fib1 {
   2     my $n = shift;
   3     if ($n < 2) {
   4         return $n
   5     } else {
   6         return fib1($n-1) + fib1($n-2)
   7     }
   8 }
   9
  10 sub fib2 {
  11     my $n = shift;
  12     die "asdf\n" if $n <= 0;
  13     if ($n < 2) {
  14         return $n
  15     } else {
  16         return fib2($n-1) + fib2($n-2)
  17     }
  18 }
  19
  20 sub rec
  21 {
  22     my $n = shift;
  23     print "rec($n)\n";
  24     my $ret;
  25     if ($n == 0) {
  26         $ret = 0;
  27     } else {
  28         $ret = rec($n - 1);
  29     }
  30     print $ret+1, " = rec($n)\n";
  31     return $ret + 1;
  32 }
  33
  34 sub crec
  35 {
  36     print STDERR "crec(@_)\n";
  37     my $ret = rec(@_);
  38     print STDERR "$ret = crec(@_)\n";
  39     return $ret;
  40 }