遍历所有组合

xiaoka2018

假设数组里面有20个成员，分别是1-20

十个成员为一个组合，如何遍历所有组合

一个组合内不能重复出现同一个成员，例如：1,2,2,3,4

baitso

https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14242240
N选M的问题

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
递归生成组合
参数名	类 型	参考	可空	数组	备 注
起始位置	整数型
当前深度	整数型
当前组合	整数型
成员数组	整数型
计数	整数型
结果	快速文本对象

变量名	类 型	静态	数组	备 注
数	整数型
文本	文本型
数	整数型

如果真 (当前深度 ＞ 10)
计数 ＝ 计数 ＋ 1
文本 ＝ “”
计次循环首 (取数组成员数 (当前组合), 数)
文本 ＝ 文本 ＋ 到文本 (当前组合 [数]) ＋ “ ”
计次循环尾 ()
结果.添加 (文本 ＋ #换行符 )
返回 ()
变量循环首 (起始位置, 20, 1, 数)
当前组合 [当前深度] ＝ 成员数组 [数]
递归生成组合 (数 ＋ 1, 当前深度 ＋ 1, 当前组合, 成员数组, 计数, 结果)
变量循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
结果	快速文本对象
成员数组	整数型		20
数	整数型
当前组合	整数型		10
数组	文本型		0

计次循环首 (20, 数)
成员数组 [数] ＝ 数
计次循环尾 ()
结果.清除文本 ()
结果.置内存增量 (10 × 1024 × 1024)
递归生成组合 (1, 1, 当前组合, 成员数组, 0, 结果)
数组 ＝ 分割文本 (结果.取文本 (, ), #换行符, )
调试输出 (取数组成员数 (数组))

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 递归生成组合<br /> .参数 起始位置, 整数型<br /> .参数 当前深度, 整数型<br /> .参数 当前组合, 整数型, 数组<br /> .参数 成员数组, 整数型, 数组<br /> .参数 计数, 整数型, 参考<br /> .参数 结果, 快速文本对象<br /> .局部变量 数, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 数, 整数型<br /> <br /> .如果真 (当前深度 ＞ 10)<br />     计数 ＝ 计数 ＋ 1<br />     文本 ＝ “”<br />     .计次循环首 (取数组成员数 (当前组合), 数)<br />         文本 ＝ 文本 ＋ 到文本 (当前组合 [数]) ＋ “ ”<br />     .计次循环尾 ()<br />     结果.添加 (文本 ＋ #换行符)<br />     返回 ()<br /> .如果真结束<br /> .变量循环首 (起始位置, 20, 1, 数)<br />     当前组合 [当前深度] ＝ 成员数组 [数]<br />     递归生成组合 (数 ＋ 1, 当前深度 ＋ 1, 当前组合, 成员数组, 计数, 结果)<br /> .变量循环尾 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 结果, 快速文本对象<br /> .局部变量 成员数组, 整数型, , "20"<br /> .局部变量 数, 整数型<br /> .局部变量 当前组合, 整数型, , "10"<br /> .局部变量 数组, 文本型, , "0"<br /> <br /> .计次循环首 (20, 数)<br />     成员数组 [数] ＝ 数<br /> .计次循环尾 ()<br /> 结果.清除文本 ()<br /> 结果.置内存增量 (10 × 1024 × 1024)<br /> 递归生成组合 (1, 1, 当前组合, 成员数组, 0, 结果)<br /> 数组 ＝ 分割文本 (结果.取文本 (, ), #换行符, )<br /> 调试输出 (取数组成员数 (数组))

开始运行被调试程序
* 184756
被调试易程序运行完毕

精易论坛龙

位置不同的组合算不算？比如abcd，bcda，这样算2组，还是算一组？

小麒QCC

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数组	整数型	0
当前组合	整数型	0
组合计数	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮_生成组合_被单击

变量名	类 型	静态	数组	备 注
i	整数型

重定义数组 (数组, 假, 20)
' 初始化数组为1-20
计次循环首 (20, i)
数组 [i] ＝ i
计次循环尾 ()
组合计数 ＝ 0
重定义数组 (当前组合, 假, 10)
编辑框1.内容 ＝ ""
生成组合优化版 (1, 1)
编辑框1.内容 ＝ "共生成 " ＋ 到文本 (组合计数) ＋ " 个组合" ＋ #换行符 ＋ 编辑框1.内容

子程序名	返回值类型	公开	备 注
生成组合优化版
参数名	类 型	参考	可空	数组	备 注
当前位置	整数型
深度	整数型

变量名	类 型	静态	数组	备 注
i	整数型
组合文本	文本型

如果真 (深度 ＞ 10)
组合计数 ＝ 组合计数 ＋ 1

' 构建组合文本
组合文本 ＝ ""
计次循环首 (10, i)
如果 (i ＝ 1)
组合文本 ＝ 到文本 (当前组合 [i])
组合文本 ＝ 组合文本 ＋ "," ＋ 到文本 (当前组合 [i])

计次循环尾 ()

' 只显示前20个组合
如果真 (组合计数 ≤ 20)
编辑框1.加入文本 ("组合" ＋ 到文本 (组合计数) ＋ ": " ＋ 组合文本 ＋ #换行符 )

返回 ()

计次循环首 (20 － 当前位置 ＋ 1, i)
如果真 (10 － 深度 ＋ 1 ＞ 20 － 当前位置 － i ＋ 2)
返回 ()  ' 剩余元素不足以形成组合

当前组合 [深度] ＝ 数组 [当前位置 ＋ i － 1]
生成组合优化版 (当前位置 ＋ i, 深度 ＋ 1)
计次循环尾 ()

.版本 2<br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组, 整数型, , "0"<br /> .程序集变量 当前组合, 整数型, , "0"<br /> .程序集变量 组合计数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .子程序 _按钮_生成组合_被单击<br /> .局部变量 i, 整数型<br /> <br /> 重定义数组 (数组, 假, 20)<br /> ' 初始化数组为1-20<br /> .计次循环首 (20, i)<br />     数组 <i> ＝ i<br /> .计次循环尾 ()<br /> <br /> 组合计数 ＝ 0<br /> 重定义数组 (当前组合, 假, 10)<br /> 编辑框1.内容 ＝ ""<br /> <br /> 生成组合优化版 (1, 1)<br /> <br /> 编辑框1.内容 ＝ "共生成 " ＋ 到文本 (组合计数) ＋ " 个组合" ＋ #换行符 ＋ 编辑框1.内容<br /> <br /> .子程序 生成组合优化版<br /> .参数 当前位置, 整数型<br /> .参数 深度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 组合文本, 文本型<br /> <br /> .如果真 (深度 ＞ 10)<br />     组合计数 ＝ 组合计数 ＋ 1<br />     <br />     ' 构建组合文本<br />     组合文本 ＝ ""<br />     .计次循环首 (10, i)<br />         .如果 (i ＝ 1)<br />             组合文本 ＝ 到文本 (当前组合 <i>)<br />         .否则<br />             组合文本 ＝ 组合文本 ＋ "," ＋ 到文本 (当前组合 <i>)<br />         .如果结束<br />     .计次循环尾 ()<br />     <br />     ' 只显示前20个组合<br />     .如果真 (组合计数 ≤ 20)<br />         编辑框1.加入文本 ("组合" ＋ 到文本 (组合计数) ＋ ": " ＋ 组合文本 ＋ #换行符)<br />     .如果真结束<br />     <br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (20 － 当前位置 ＋ 1, i)<br />     .如果真 (10 － 深度 ＋ 1 ＞ 20 － 当前位置 － i ＋ 2)<br />         返回 ()  ' 剩余元素不足以形成组合<br />     .如果真结束<br />     <br />     当前组合 [深度] ＝ 数组 [当前位置 ＋ i － 1]<br />     生成组合优化版 (当前位置 ＋ i, 深度 ＋ 1)<br /> .计次循环尾 ()

憨憨问号

论坛有现成的，如果有帮助请采纳
[深度优先]数的组合排列全排列和N选M排列
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14242240
(出处: 精易论坛)