Select Code to Download

fact(4) = 4 * 3 * 2 * 1 = 24

$ perl -e '
sub fact { 
...
     return $result;}  
print fact (shift);' 10
3628800

fact(1) = 1
fact (n) = n * fact (n-1)

$ perl -e '
sub fact { 
...
} 
print fact (shift);' 10
3628800