Tuesday, November 3, 2015

Filled Under:

Perl program to find the factorial of a number using recursion

Posted by: Creative Boyz - 7:08:00 PM

print "Enter a number: ";
$n=<STDIN>;
$t=$n;
$i=0;
$f=1;
while($i<$t)
{
$f=$f*$n;
$n--;
$i++;
}
print "Factorial is $f\n";