【分享源码】子集生成算法

神女软件定制

问答区的问题，https://bbs.125.la/thread-14709726-1-1.html
感觉有点意思，就发出来

  

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

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

子集生成 ({ 1, 2, 3, 4, 5 })

子程序名	返回值类型	公开	备 注
子集生成
参数名	类 型	参考	可空	数组	备 注
arr	整数型				限制最大长度31

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
n	整数型
结果	整数型		0
j	整数型

len ＝ 取数组成员数 (arr)
计次循环首 (len, i)
n ＝ 位或 (n, 左移 (1, i － 1))
计次循环尾 ()
变量循环首 (0, n, 1, i)  ' 需要空集填0，不要空集填1
清除数组 (结果)
计次循环首 (len, j)
如果真 (位与 (i, 左移 (1, j － 1)) ≠ 0)
加入成员 (结果, arr [j])

计次循环尾 ()
调试输出 (结果)
变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子集生成 ({ 1, 2, 3, 4, 5 })<br /> <br /> .子程序 子集生成<br /> .参数 arr, 整数型, 数组, 限制最大长度31<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 结果, 整数型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> len ＝ 取数组成员数 (arr)<br /> .计次循环首 (len, i)<br />     n ＝ 位或 (n, 左移 (1, i － 1))<br /> .计次循环尾 ()<br /> .变量循环首 (0, n, 1, i)  ' 需要空集填0，不要空集填1<br />     清除数组 (结果)<br />     .计次循环首 (len, j)<br />         .如果真 (位与 (i, 左移 (1, j － 1)) ≠ 0)<br />             加入成员 (结果, arr [j])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (结果)<br /> .变量循环尾 ()

111.e (3.05 KB, 下载次数: 17)

2021-12-8 22:27 上传

点击文件名下载附件

优化了下

  

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

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

子集生成 ({ 1, 2, 3, 4, 5 })

子程序名	返回值类型	公开	备 注
子集生成
参数名	类 型	参考	可空	数组	备 注
arr	整数型				限制最大长度31

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
结果	整数型		0
j	整数型

len ＝ 取数组成员数 (arr)
变量循环首 (0, 求次方 (2, len) － 1, 1, i)  ' 需要空集填0，不要空集填1
清除数组 (结果)
计次循环首 (len, j)
如果真 (位与 (i, 左移 (1, j － 1)) ≠ 0)
加入成员 (结果, arr [j])

计次循环尾 ()
调试输出 (结果)
变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子集生成 ({ 1, 2, 3, 4, 5 })<br /> <br /> .子程序 子集生成<br /> .参数 arr, 整数型, 数组, 限制最大长度31<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 整数型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> len ＝ 取数组成员数 (arr)<br /> .变量循环首 (0, 求次方 (2, len) － 1, 1, i)  ' 需要空集填0，不要空集填1<br />     清除数组 (结果)<br />     .计次循环首 (len, j)<br />         .如果真 (位与 (i, 左移 (1, j － 1)) ≠ 0)<br />             加入成员 (结果, arr [j])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (结果)<br /> .变量循环尾 ()

趣冉科技

感谢楼主分享，支持一下~~！！！

cultwent

感谢分享

大师兄是反派

谢谢大佬分享 支持支持

movemama

感谢神一样的女人分享!

鑫豪学

感谢分享

wjswzj0

谢谢分享！

喵帕斯和艾希

下载看看，感谢楼主的分享

xjshuaishuai

谢谢分享！

神女软件定制

怎么自动带了个之前发帖的图片……