具有给定列表中的非重复子列表的列表

Question

如何使用给定列表中的n个大小不重复的子列表创建列表？ 我认为这个例子可以解释很多。

given_list = [1, 2, 3, 4, 5]
n = 3
desired_list = [[1,2,3], [1,2,4], [1,2,5], [1,3,4], [1,3,5], [1,4,5], [2,3,4], [2,3,5], [2,4,5], [3,4,5]]

编辑：我忘了添加一些重要的组合

Answer 1

不确定是否要组合或排列，因此两者都是：

排列

您可以使用itertools permutations来查找给定列表的所有排列：

from itertools import permutations

given_list = [1, 2, 3, 4, 5]
n = 3

print([list(i) for i in permutations(given_list, n)])

输出：

[[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 2], [1, 3, 4], [1, 3, 5], [1, 4, 2], [1
, 4, 3], [1, 4, 5], [1, 5, 2], [1, 5, 3], [1, 5, 4], [2, 1, 3], [2, 1, 4], [2, 1
, 5], [2, 3, 1], [2, 3, 4], [2, 3, 5], [2, 4, 1], [2, 4, 3], [2, 4, 5], [2, 5, 1
], [2, 5, 3], [2, 5, 4], [3, 1, 2], [3, 1, 4], [3, 1, 5], [3, 2, 1], [3, 2, 4],
[3, 2, 5], [3, 4, 1], [3, 4, 2], [3, 4, 5], [3, 5, 1], [3, 5, 2], [3, 5, 4], [4,
 1, 2], [4, 1, 3], [4, 1, 5], [4, 2, 1], [4, 2, 3], [4, 2, 5], [4, 3, 1], [4, 3,
 2], [4, 3, 5], [4, 5, 1], [4, 5, 2], [4, 5, 3], [5, 1, 2], [5, 1, 3], [5, 1, 4]
, [5, 2, 1], [5, 2, 3], [5, 2, 4], [5, 3, 1], [5, 3, 2], [5, 3, 4], [5, 4, 1], [
5, 4, 2], [5, 4, 3]]

---

组合方式

您还可以使用combinations从itertools找到一个给定列表的所有组合：

from itertools import combinations

given_list = [1, 2, 3, 4, 5]
n = 3

print([list(i) for i in combinations(given_list, n)])

输出：

[[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2
, 3, 5], [2, 4, 5], [3, 4, 5]]

Answer 2

排列的快速实现：

    sub perm {
      my ($init,$k) = @_;
      my $n=length($init); my $dn=$n;
      my $out=""; my $m=$k;
      for (my $i=0;$i<$n;$i++) {
        my $ind=$m % $dn;  
        $out.=substr($init,$ind,1);
        $m=$m / $dn;  
        $dn--;
        substr($init,$ind,1,substr($init,$dn,1));
      }
      return $out
    }

k = 0 .. length（init）-1; 每个k给出一个唯一的排列，似乎是随机的。 计算阶乘长度（初始）！

     sub fac {
       my ($f) = @_;
       my $fac=1; while ($f>1) { $fac*=$f; $f-- } return $fac
     }