Next The Perl Hardware Store DC.pm Version 28

Caching

         sub factorial {
           my $n = shift;
           $n == 0 ? 1 : $n * factorial($n-1);
         }


Next Copyright © 2003 M. J. Dominus