Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Perl

Idiom #31 Recursive factorial (simple)

Create the recursive function f which returns the factorial of the non-negative integer i, calculated from f(i-1)

sub f {
   my $i = shift;
   return $i<2 ? 1 : $i * f($i-1);
}
function F (I : Natural) return Natural is (if I < 2 then 1 else I * F (I - 1));

New implementation...
< >
programming-idioms.org