Help for this page

Select Code to Download

Select or download this

sub factorial {
  my ($n) = shift;
...
    return $n * factorial($n - 1);
  }
}