具有給定列表中的非重復子列表的列表

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
     }