0

我是 perl 新手,似乎无法在任何地方找到有关此问题的答案。我将问题缩小到递归函数。如果我将其注释掉,那么它可以正常工作而没有错误。我有:

use strict;
use warnings;

 sub GeneratePermutations{
    my($n, $nMax, $i, $ArrLength, @Arr) = @_;

    if($n == 0){
    foreach($i..$ArrLength-1){
        $Arr[$i] = 0;
        ++$i;
    }

    my @qArr = ();
    my $rVal = 1; 
    for(my $p = 0; $p < @Arr; $p++){

        $rVal *= fac($Arr[$p]);

        for(my $q = 0; $q < $ArrLength; $q++){

        my $qCount = 0; 
        for(my $j = 0; $j < $ArrLength; $j++){ 

            if($Arr[$j] eq $q){
            ++$qCount;
            }


        }
        $qArr[$i] = $qCount;
        }
    }
    my $qVal = 1;
    for(my $qNum = 0; $qNum < @qArr; $qNum++){
        $qVal *= fac($qArr[$qNum]);
    }
    my $maxDistVal = 0;
    $maxDistVal = (1/($ArrLength**$ArrLength))*(fac($ArrLength)/$rVal)*(fac($ArrLength)/$qVal);

    if($maxDistVal > $distribution){
        $distribution = $maxDistVal;
    }
    #prints out distributions for all permutations (comment out previous if-statement)
    print "Dist: " . $distribution . "<br /><br />";
    #return 1;
    }
    my $resultCnt = 0;
    for(my $cnt = MinVal($nMax, $n); $cnt > 0; $cnt--){
    $Arr[$i] = $cnt;
    ++$resultCnt; 
    GeneratePermutations(int($n-$cnt), $cnt, $i+1, $ArrLength, @Arr);
    }

    #return $resultCnt;
    return $distribution;

}

我错过了什么?

4

3 回答 3

1

如果我不得不猜测,我会说这是问题所在:$qArr[$i] = $qCount;

因为您只在@qArr 中重复写入一个元素,然后再读取元素0 到$#qArr。

你的意思是$qArr[$p] = $qCount;?或者$qArr[$q] = $qCount;

于 2012-07-02T23:04:05.050 回答
0

当您声明 $distribution 时,它可能必须在子例程之外,因为您需要它在整个递归过程中持续存在。

于 2012-07-03T02:34:20.937 回答
0

我开始注释掉我的部分代码,发现如果我删除这部分,警告就会消失:

for(my $qNum = 0; $qNum < @qArr; $qNum++){
    $qVal *= fac($qArr[$qNum]);
}
于 2012-07-03T21:55:41.773 回答