我能想出的就是这个,这是行不通的。
$fact = sub {
$n = shift;
if($n==0 || $n ==1){
return 1;
}else{
return $n*&$fact($n-1);
}
}
sub fun{
($x,$n)= @_;
if($n==0){
return 1;
}elsif($n == 1){
return $x;
}else{
return ($x)/&$fact($n)+fun($x,$n-1);
}
}
print (fun(3,5));
Run Code Online (Sandbox Code Playgroud)