Question

生成1到N位数的所有组合的最佳方法是什么，其中数字可以在组合中重复？例如，给定数组0..2，结果应为：

0
1
2
00
01
02
10个
11个
12个
20个
21个
22个
000
001
002
010
011
等

我玩过Algorithm :: Permute，但看起来它只能生成N个数字的唯一组合：

for( my $a = 0; $a < 3; $a++ ) {
        for( my $b = 0; $b < 3; $b++ ) {
                my @array = $a..$b;
                Algorithm::Permute::permute {
                        my $Num = join("", @array);
                        print $Num;
                        sleep 1;
                } @array;
        }
}

谢谢。

Answer 1

顾名思义， Algorithm::Permute 提供排列。从 N 的群体中选择 k 项目有很多数学变化：有和没有替换，有和没有没有重复，忽略顺序

很难确定，但你可能想要 Algorithm::Combinatorics

以下是一些示例代码，它至少会再现您展示的预期数据部分。它与 zdim＆＃39> 解决方案几乎相同，但在这里可能会有一些对您有用的东西

use strict;
use warnings 'all';
use feature 'say';

use Algorithm::Combinatorics 'variations_with_repetition';

my @data = 0 .. 2;

for my $k ( 1 .. @data ) {
    say @$_ for variations_with_repetition(\@data, $k);
}

输出

Answer 2

my @digits = 0..2;
my $len = 3;
my @combinations = map glob("{@{[join ',', @digits]}}" x $_), 1..$len;

在Perl中生成最多N位数的所有组合，包括重复数字

2 个答案:

输出