Help for this page

Select Code to Download


  1. or download this
    sub fact {
   my ($n) = @_;
...
}

fact($n);
  2. or download this
    sub fact {
   my ($n, $prod) = @_;
...
}

fact($n);
  3. or download this
    sub fact {
   my ($n) = @_;
...
}

fact($n);