cloner11
شنبه 10 اسفند 1392, 08:33 صبح
سلام
من تابع فاکتوریل رو نوشتم ولی کار نمیکنه! علتش چیه؟
#!/usr/bin/perl
sub fact($n){
$p=1;
while($p<=$n)
{
$p*=$p;
$p++;
}
return $p;
}
$n=3;
print fact($n);
من تابع فاکتوریل رو نوشتم ولی کار نمیکنه! علتش چیه؟
#!/usr/bin/perl
sub fact($n){
$p=1;
while($p<=$n)
{
$p*=$p;
$p++;
}
return $p;
}
$n=3;
print fact($n);