Question

我的目标是测试我创建的游戏的解决方案。就像数独一样，您可以玩网格游戏。网格使您找到一个秘密的组合。我创建网格的方式无法确保只有一种可能的解决方案，如果存在多个解决方案，则网格为假。因此，我必须使用所有可能的组合来测试网格。创建所有组合的最快方法是生成组合的每个可能数目的所有可能存在：例如[1,1,1 | 1。 1,2,0 | [3,0,0]，如果组合的长度为3和三个可能的值。有了这些信息，我需要使用置换。

这是我写的脚本：

function recursion($grd_chfr, $pt_chfr, $tab, &$tab_all) {
    if($grd_chfr == 0) {
        $tab_all[] = $tab;
        return;
    }
    for($n = $pt_chfr; $n <= $grd_chfr; $n++) {
        $b = $tab;
        $b[] =  $n;
        recursion($grd_chfr - $n, $n, $b, $tab_all);
    }
}

function permutations(array $elements)
{
    if (count($elements) <= 1) {
        yield $elements;
    } else {
        foreach (permutations(array_slice($elements, 1)) as $permutation) {
            foreach (range(0, count($elements) - 1) as $i) {
                yield array_merge(
                    array_slice($permutation, 0, $i),
                    [$elements[0]],
                    array_slice($permutation, $i)
                );
            }
        }
    }
}

$somme = 7;
$depart = 1;
$entrees = 7;
$tab_all = [];

$time_start = microtime(true);

// I use a recursive function to get every manner to spread values, to fill the combination whose length is $somme
recursion($somme, $depart, [], $tab_all);

$new_tab_all = [];
$count_gen = 0;

//  if the number of possible values to use ($entrees) is higher or smaller than the length of the combination I adjust by adding zeros or by deleting distributions
foreach($tab_all as $tab){
    if(count($tab) < $entrees){
        $count = count($tab);
        for($x = $depart; $x <= $entrees - $count; $x++){
            $tab[] = 0;
        }
        //  I create all possible permutation for each distribution, and that's where there is too much duplicatas
        foreach(permutations($tab) as $combi){
            if(!in_array($combi, $new_tab_all)) {
                $new_tab_all[] = $combi;
            }
        }
    }
    elseif(count($tab) == $entrees){
        $new_tab_all[] = $tab;
    }
}


$time_stop = microtime(true);
echo round(($time_stop - $time_start), 2)."s d'écoulées, ".count($new_tab_all)." solutions (".$count_gen." générées).</br></br>";

我需要一个脚本来获得组合的每个可能的唯一排列。例如，具有数组[1,1,2,3]，我想要一个脚本返回[[1,1,3,2]，[1,3,1,2]，[3,1,1， 2]，[2,1,3,1]，[2,3,1,1]，[1,3,2,1]，[1,1,2,3]，...]两次相同的组合。

要进行排列，我使用了一个脚本，但是它会生成很多重复，例如[1,1,1,1,2,3]。我在那找到了它：Permutations - all possible sets of numbers

function permutations(array $elements)
{
    if (count($elements) <= 1) {
        yield $elements;
    } else {
        foreach (permutations(array_slice($elements, 1)) as $permutation) {
            foreach (range(0, count($elements) - 1) as $i) {
                yield array_merge(
                    array_slice($permutation, 0, $i),
                    [$elements[0]],
                    array_slice($permutation, $i)
                );
            }
        }
    }
}

我还找到了我认为是我需要的脚本，但是它是用python编写的脚本，而我需要用php编写。我在那找到了它：permutations with unique values

class unique_element:
    def __init__(self,value,occurrences):
        self.value = value
        self.occurrences = occurrences

def perm_unique(elements):
    eset=set(elements)
    listunique = [unique_element(i,elements.count(i)) for i in eset]
    u=len(elements)
    return perm_unique_helper(listunique,[0]*u,u-1)

def perm_unique_helper(listunique,result_list,d):
    if d < 0:
        yield tuple(result_list)
    else:
        for i in listunique:
            if i.occurrences > 0:
                result_list[d]=i.value
                i.occurrences-=1
                for g in  perm_unique_helper(listunique,result_list,d-1):
                    yield g
                i.occurrences+=1




a = list(perm_unique([1,1,2]))
print(a)

我不知道如何在php中翻译第二个代码，或者如何修改第一个代码以排除重复。

Answer 1

从一个原始集合开始，比如说[a，b，a]
现在您需要解析集合
对于集合的每个唯一元素，您创建一个列表，该列表从当前元素开始，然后是集合的排列减去当前元素（此处允许重复）像这样： pseudo code of the permutation recursive algorithm

如何在没有重复的情况下进行排列？

1 个答案: