Mega Code Archive

 

Categories / Perl / Subroutine

 

Write recursive subroutines

sub Factorial {         my($n) = @_;         $n <= 2 and return $n;         return $n * Factorial($n-1);     }     for $i (1..9) {         print "$i Factorial =\t", Factorial($i), "\n";     }