全排列组合输出

fxl447098457

全排列:简单讲是从N个不同元素中取出M个，按照一定顺序排成一列，通常用A(N,M)表示。当M=N时，称为全排列.
学习了一下c语言里面写法,用vba写出来分享一下吧。做个记录：

1. Dim N '用于增加动态数组下标
   
2. Sub perm(arr, k, m, brr()) '全排列
   
3. 'arr为需要全排列的数组。k为数组下标,m为上标，brr为存放结果的数组
   
4. Dim i As Integer
   
5. If k > m Then
   
6. N = N + 1
   
7.   For i = 0 To m
   
8.   
   
9.    ReDim Preserve brr(1 To m + 1, 1 To N)
   
10.    brr(i + 1, N) = arr(i)
    
11.   Next i
    
12.   
    
13. Else
    
14.    For i = k To m
    
15.        Call swap(arr, k, i)
    
16.        Call perm(arr, k + 1, m, brr())
    
17.         Call swap(arr, k, i)
    
18.   Next i
    
19. End If
    
20. End Sub
    
21. Sub swap(arr, i, j) '数据交换
    
22. Dim t
    
23. t = arr(i)
    
24. arr(i) = arr(j)
    
25. arr(j) = t
    
26. End Sub
    
27. Sub main()
    
28. Dim brr()
    
29. N = 0
    
30. arr = Array(1, "a", 3, "c") '对arr全排列
    
31. Call perm(arr, LBound(arr), UBound(arr), brr)
    
32. [A1].Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
    
33. End Sub

复制代码

fxl447098457

附件。。。 全排列.rar (13.61 KB, 下载次数: 123)

2019-1-5 15:05 上传

点击文件名下载附件

duquancai

fxl447098457 发表于 2019-1-5 15:05
附件。。。

1. # -*- coding: utf-8 -*-
   
2. import pandas, time, itertools
   
3. 
   
4. def comball(my_list, r):
   
5.     return [i for i in itertools.permutations(my_list, r)]
   
6. 
   
7. if __name__ == '__main__':
   
8.     t = time.time()
   
9.     my_list = [1, "a", 3, "c"]
   
10.     df = pandas.DataFrame(comball(my_list, len(my_list)))
    
11.     with pandas.ExcelWriter(r'output.xlsx') as writer:
    
12.         df.to_excel(writer, 'Sheet1', index=False, header=False)
    
13.     print(time.time() - t)

复制代码

fxl447098457

duquancai 发表于 2019-1-5 23:15

python确实方便,不过不过有时候学学基础算法也是挺可以的.python的官方文档展示了基础代码的实现：https://docs.python.org/3/librar ... rtools.combinations。

zjzjzjjjj

学习了 tks

zjzjzjjjj

fxl447098457 发表于 2019-1-6 06:45
python确实方便,不过不过有时候学学基础算法也是挺可以的.python的官方文档展示了基础代码的实现：https: ...

请教lz一个问题:我用dataframe读取excel中的一列,这列是1,2,3,4或3,5,7,9这样的数据.
读取成功后,用set求集合, 结果是{'1,2,3,4'};
另有一个itertools.combination生成的迭代,比如其第一个是(1,2,3,4,5),用set求集合,结果是{1,2,3,4,5};
然后用set1<set2的方式判断是否是子集,结果却显示不是.
原因似乎是因为{'1,2,3,4'}多个''号.

请问该如何解决.谢谢.

我把excel中的数据打散,集合的结果变成{'1','2','3','4'},一样有多个''.

fxl447098457

zjzjzjjjj 发表于 2019-1-8 17:02
请教lz一个问题:我用dataframe读取excel中的一列,这列是1,2,3,4或3,5,7,9这样的数据.
读取成功后,用set ...

参考下：
a={'1,2,3,4'}

b={1,2,3,4,5}

c=tuple()

for x in a:
    c=c+eval(x)
   

c=set(c)

c
Out[22]: {1, 2, 3, 4}

c<b
Out[23]: True

duquancai

zjzjzjjjj 发表于 2019-1-8 17:02
请教lz一个问题:我用dataframe读取excel中的一列,这列是1,2,3,4或3,5,7,9这样的数据.
读取成功后,用set ...

1. set2 = {1, 2, 3, 4, 5}
   
2. set1 = {'1, 2, 3, 4'}
   
3. set1 = {int(x) for x in set1.copy().pop().split(',')}
   
4. print(set1 < set2)

复制代码

duquancai

zjzjzjjjj 发表于 2019-1-8 17:02
请教lz一个问题:我用dataframe读取excel中的一列,这列是1,2,3,4或3,5,7,9这样的数据.
读取成功后,用set ...

1. set2 = {1, 2, 3, 4, 5}
   
2. set1 = {'1', '2', '3', '4'}
   
3. set1 = {int(x) for x in set1}
   
4. print(set1 < set2)

复制代码

duquancai

zjzjzjjjj 发表于 2019-1-8 17:02
请教lz一个问题:我用dataframe读取excel中的一列,这列是1,2,3,4或3,5,7,9这样的数据.
读取成功后,用set ...

1. set2 = {1, 2, 3, 4, 5}
   
2. set1 = {'1,2,3,4'}
   
3. set11 = {int(y) for x in set1 for y in x[::2]}
   
4. print(set11 < set2)

复制代码