This is the revision history for scary factorial in <*:##NULL>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 3412 | scary factorial | is | An example of a tail-recursive factorial function in perl is: sub fac { _fac(my $a = $_[0], my $b = $_[0] - 1) } sub _fac { return $_[0] unless $_[1] > 1; $_[0] *= $_[1]; $_[1]--; goto &_fac };' | perlbot |