14 lines
140 B
Plaintext
14 lines
140 B
Plaintext
|
|
|
|
###
|
|
### factorial0
|
|
###
|
|
|
|
## Chapter 5 section 4.2
|
|
|
|
sub factorial {
|
|
my ($n) = @_;
|
|
return 1 if $n == 0;
|
|
return factorial($n-1) * $n;
|
|
}
|