Help for this page

Select Code to Download


  1. or download this
    $ perl -wE 'say fact(102); sub fact {my $c = shift; return 1 if $c == 
+1; return $c *fact($c-1)}'
Deep recursion on subroutine "main::fact" at -e line 1.
9.61446671503512e+161
  2. or download this
    $ perl -wE 'say fact(102); sub fact {my $c = shift; return 1 if $c == 
+1; no warnings "recursion"; return $c *fact($c-1)}'
9.61446671503512e+161