遍历公式

风度猫

例如4位 或者5位的整数
3127   6574    98654   
每位只会1-9
文本_逐字分割后分割成 下标4 或者下标5的数组后 怎么让每次3组合  遍历出全部不同的组合 不限位置  例如 986   896  算一个

例 3127    312   317  327 127
例  98654    986   985   984  965  954  865   854  864  654   

梦寻简单

  

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

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

变量名	类 型	静态	数组	备 注
内容	字节集
i	整数型
长度	整数型

内容 ＝ 到字节集 (“3127”)
长度 ＝ 取字节集长度 (内容)
变量循环首 (0, 左移 (1, 长度) － 1, 1, i)
排列 (内容, 长度, i, 3)
变量循环尾 ()
调试输出 (计数器)

子程序名	返回值类型	公开	备 注
统计1的个数	整数型
参数名	类 型	参考	可空	数组	备 注
参数	整数型

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

判断循环首 (参数 ≠ 0)
参数 ＝ 位与 (参数, 参数 － 1)
数量 ＝ 数量 ＋ 1
判断循环尾 ()
返回 (数量)

子程序名	返回值类型	公开	备 注
排列
参数名	类 型	参考	可空	数组	备 注
内容	字节集
长度	整数型
索引	整数型
个数	整数型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
当前数组	文本型		3

' 重定义数组 (当前数组, 假, 个数)
如果真 (统计1的个数 (索引) ＝ 个数)
j ＝ 1
变量循环首 (0, 长度 － 1, 1, i)
如果真 (位与 (索引, 1) ≠ 0)
当前数组 [j] ＝ 字符 (内容 [i ＋ 1])
j ＝ j ＋ 1
索引 ＝ 右移 (索引, 1)
变量循环尾 ()
计数器 ＝ 计数器 ＋ 1
调试输出 (当前数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 计数器, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 内容, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 长度, 整数型<br /> <br /> 内容 ＝ 到字节集 (“3127”)<br /> 长度 ＝ 取字节集长度 (内容)<br /> .变量循环首 (0, 左移 (1, 长度) － 1, 1, i)<br />     排列 (内容, 长度, i, 3)<br /> .变量循环尾 ()<br /> 调试输出 (计数器)<br /> <br /> .子程序 统计1的个数, 整数型<br /> .参数 参数, 整数型<br /> .局部变量 数量, 整数型<br /> <br /> .判断循环首 (参数 ≠ 0)<br />     参数 ＝ 位与 (参数, 参数 － 1)<br />     数量 ＝ 数量 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (数量)<br /> <br /> .子程序 排列<br /> .参数 内容, 字节集<br /> .参数 长度, 整数型<br /> .参数 索引, 整数型<br /> .参数 个数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 当前数组, 文本型, , "3"<br /> <br /> ' 重定义数组 (当前数组, 假, 个数)<br /> .如果真 (统计1的个数 (索引) ＝ 个数)<br />     j ＝ 1<br />     .变量循环首 (0, 长度 － 1, 1, i)<br />         .如果真 (位与 (索引, 1) ≠ 0)<br />             当前数组 [j] ＝ 字符 (内容 [i ＋ 1])<br />             j ＝ j ＋ 1<br />         .如果真结束<br />         索引 ＝ 右移 (索引, 1)<br />     .变量循环尾 ()<br />     计数器 ＝ 计数器 ＋ 1<br />     调试输出 (当前数组)<br /> .如果真结束

lufanjingyi

  

子程序名	返回值类型	公开	备 注
分割组合
参数名	类 型	参考	可空	数组	备 注
文本	文本型
返回文本	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
次数	整数型
x	整数型
y	整数型
z	整数型
数字2	文本型
数字3	文本型
数字1	文本型
去除1	整数型
去除2	整数型

次数 ＝ 文本_逐字分割 (文本, 文本数组)
计次循环首 (次数, x)
数字1 ＝ 文本数组 [x]
去除1 ＝ x
计次循环首 (次数, y)
如果真 (y ＞ x)
数字2 ＝ 文本数组 [y]
去除2 ＝ y
计次循环首 (次数, z)
如果真 (z ＞ y)
数字3 ＝ 文本数组 [z]
加入成员 (返回文本, 数字1 ＋ 数字2 ＋ 数字3)

计次循环尾 ()

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 分割组合<br /> .参数 文本, 文本型<br /> .参数 返回文本, 文本型, 参考 数组<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 次数, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 z, 整数型<br /> .局部变量 数字2, 文本型<br /> .局部变量 数字3, 文本型<br /> .局部变量 数字1, 文本型<br /> .局部变量 去除1, 整数型<br /> .局部变量 去除2, 整数型<br /> <br /> 次数 ＝ 文本_逐字分割 (文本, 文本数组)<br /> .计次循环首 (次数, x)<br />     数字1 ＝ 文本数组 [x]<br />     去除1 ＝ x<br />     .计次循环首 (次数, y)<br />         .如果真 (y ＞ x)<br />             数字2 ＝ 文本数组 [y]<br />             去除2 ＝ y<br />             .计次循环首 (次数, z)<br />                 .如果真 (z ＞ y)<br />                     数字3 ＝ 文本数组 [z]<br />                     加入成员 (返回文本, 数字1 ＋ 数字2 ＋ 数字3)<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

jr21066

https://bbs.125.la/forum.php?mod ... 14253878&extra=

wzj2015

3127 到3位组合，
不重复的结果有4*3*2*1 个数
高中数学数列就学过
98654到3位组合，有5*4*3 个数
类似的我以前写个密码算法，这里不重复。

风度猫

wzj2015 发表于 2020-4-12 21:59
3127 到3位组合，
不重复的结果有4*3*2*1 个数
高中数学数列就学过

看清楚  问题亲 986   896  算一个