Question

我是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;

}

我错过了什么？

Answer 1

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

因为你只是在@qArr中重复写一个元素，然后再读取元素0到$＃qArr。

您的意思是$qArr[$p] = $qCount;吗？或$qArr[$q] = $qCount;？

Answer 2

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

Answer 3

我开始注释掉部分代码并发现如果删除此部分，则警告会消失：

for(my $qNum = 0; $qNum < @qArr; $qNum++){
    $qVal *= fac($qArr[$qNum]);
}

Perl递归导致“使用未初始化的值”错误

3 个答案: