Select Code to Download

  sub factorial {
    my $n = shift;
...
    return $mult if $n < 2;
    return factorial($n - 1, $mult * $n);
  }