计算文本组合_纯源码_求测试

jr21066

超级の赛亚人 发表于 2018-10-26 10:14
http://bbs.eyuyan.com/read.php?tid=387585

这个是不重复的排列呀.

超级の赛亚人

http://bbs.eyuyan.com/read.php?tid=387585

jr21066

超级の赛亚人 发表于 2018-10-26 08:42
3位的应该有720个组合吧。
ABC ABD ABE ABF ABG ABH ABI ABJ ACB ACD ACE ACF ACG ACH ACI ACJ ADB ADC AD ...

我这边运算的结果是120.是10的集合吗?
我的计算机不行.只测试了一些小的数.

按算法是没有重复的数的.出错只能是代码方面.方边的话可以上传你的代码我看看.

jr21066

优化第一版

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
子集数组	文本型		0
计数器	整数型
文本1	文本型
时间1	整数型

时间1 ＝ 取启动时间 ()
计次循环首 (10, 计数器)
加入成员 (文本数组, 字符 (64 ＋ 计数器))
计次循环尾 ()
求数组组合 (文本数组, 3, 子集数组, )
调试输出 (子集数组, 取启动时间 () － 时间1)
时间1 ＝ 取启动时间 ()
计次循环首 (10, 计数器)
文本1 ＝ 文本1 ＋ 字符 (64 ＋ 计数器) ＋ “,”
计次循环尾 ()
求文本组合 (文本1, 4, , )
调试输出 (取启动时间 () － 时间1)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
求数组组合			求n-m组合
参数名	类 型	参考	可空	数组	备 注
参_数组	文本型				组合所有成员
参_组合位数	整数型				子集成员数
参_返回数组	文本型				用于存放返回的子集
参_子集分隔符	文本型

变量名	类 型	静态	数组	备 注
局_增量计数器	整数型			1到最大值的增量计数
局_位记数总量	长整数型			组合位数计算
局_成员总数	整数型			组合成员总数
局_位计数	整数型			当前增量值的1置位数
局_测试位	整数型			计算1个数用
局_位测试计数器	整数型			增量计数位计算计数
局_子集数值	文本型			子集成员临时值
局_文件句柄	整数型
局_写子集次数	整数型

如果真 (是否为空 (参_子集分隔符))
参_子集分隔符 ＝ “,”
局_成员总数 ＝ 取数组成员数 (参_数组)
局_测试位 ＝ 1
' 求出组合所有成员的使用位数的数值,
取变量地址 (局_位记数总量)
求置位数值 (局_成员总数)
调试输出 (“循环次数”, 局_位记数总量)
' 从1开始到最大值,循环求置1位数等于子集位数的数值成员
计次循环首 (局_位记数总量, 局_增量计数器)
局_位计数 ＝ 求1位数 (局_增量计数器, 局_成员总数)
' 符合子集数量的数
如果真 (局_位计数 ＝ 参_组合位数)
局_子集数值 ＝ “”
局_文件句柄 ＝ 打开内存文件 ()
计次循环首 (局_成员总数, 局_位测试计数器)
' 计算1置位数量
局_写子集次数 ＝ 0
如果真 (求1是否置位 (局_增量计数器, 局_位测试计数器))
局_写子集次数 ＝ 局_写子集次数 ＋ 1
如果 (局_写子集次数 ＜ 参_组合位数)
写出文本 (局_文件句柄, 参_数组 [局_位测试计数器] ＋ 参_子集分隔符)
写出文本 (局_文件句柄, 参_数组 [局_位测试计数器])


计次循环尾 ()
移动读写位置 (局_文件句柄, #文件首, 0)
加入成员 (参_返回数组, 读入文本 (局_文件句柄, ))
关闭文件 (局_文件句柄)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
求1位数	整数型
参数名	类 型	参考	可空	数组	备 注
参_数值	整数型
参_计算位	整数型

置入代码 ({ 81, 82, 139, 69, 8, 139, 77, 12, 49, 210, 209, 216, 115, 1, 66, 226, 249, 137, 208, 90, 89, 201, 194, 8, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
求1是否置位	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_数值	整数型
参_计算位	整数型

置入代码 ({ 81, 82, 139, 69, 8, 186, 1, 0, 0, 0, 139, 77, 12, 73, 211, 226, 133, 208, 117, 4, 49, 192, 235, 3, 49, 192, 64, 90, 89, 201, 194, 8, 0 })
返回 (假)

子程序名	返回值类型	公开	备 注
求文本组合	文本型		求n-m组合
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型				组合所有成员
参_组合位数	整数型				子集成员数
参_文本分隔符	文本型				文本内容中分隔符号
参_子集分隔符	文本型				返回子集中分隔符

变量名	类 型	静态	数组	备 注
局_增量计数器	整数型			1到最大值的增量计数
局_位记数总量	长整数型			组合位数计算
局_成员总数	整数型			组合成员总数
局_位计数	整数型			当前增量值的1置位数
局_测试位	整数型			计算1个数用
局_位测试计数器	整数型			增量计数位计算计数
局_子集数值	文本型			子集成员临时值
局_返回文本	文本型			返回子集文本
局_文件句柄	整数型			内存文件句柄
局_文本数组	文本型		0	组合成员数组
局_写子集次数	整数型			临时计次变量

如果真 (是否为空 (参_文本分隔符))
参_文本分隔符 ＝ “,”
如果真 (是否为空 (参_子集分隔符))
参_子集分隔符 ＝ “,”
局_文本数组 ＝ 分割文本 (参_文本, 参_文本分隔符, )
局_成员总数 ＝ 取数组成员数 (局_文本数组)
局_测试位 ＝ 1
局_文件句柄 ＝ 打开内存文件 ()
' 求出组合所有成员的使用位数的数值,
取变量地址 (局_位记数总量)
求置位数值 (局_成员总数)
调试输出 (“循环次数”, 局_位记数总量)
' 从1开始到最大值,循环求置1位数等于子集位数的数值成员
计次循环首 (局_位记数总量, 局_增量计数器)
局_位计数 ＝ 求1位数 (局_增量计数器, 局_成员总数)
' 符合子集数量的数
如果真 (局_位计数 ＝ 参_组合位数)
局_子集数值 ＝ “”
局_写子集次数 ＝ 0
计次循环首 (局_成员总数, 局_位测试计数器)
' 计算1置位数量
如果真 (求1是否置位 (局_增量计数器, 局_位测试计数器))
局_写子集次数 ＝ 局_写子集次数 ＋ 1
如果 (局_写子集次数 ＜ 参_组合位数)
写出文本 (局_文件句柄, 局_文本数组 [局_位测试计数器] ＋ 参_子集分隔符)
写出文本 (局_文件句柄, 局_文本数组 [局_位测试计数器] ＋ #换行符 )


计次循环尾 ()

计次循环尾 ()
移动读写位置 (局_文件句柄, #文件首, 0)
局_返回文本 ＝ 读入文本 (局_文件句柄, )
关闭文件 (局_文件句柄)
返回 (局_返回文本)

子程序名	返回值类型	公开	备 注
求置位数值
参数名	类 型	参考	可空	数组	备 注
参_置位次数	整数型

置入代码 ({ 82, 81, 139, 77, 8, 49, 210, 66, 73, 249, 209, 210, 226, 251, 137, 16, 89, 90 })

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 子集数组, 文本型, , "0"<br /> .局部变量 计数器, 整数型<br /> .局部变量 文本1, 文本型<br /> .局部变量 时间1, 整数型<br /> <br /> 时间1 ＝ 取启动时间 ()<br /> .计次循环首 (10, 计数器)<br />     加入成员 (文本数组, 字符 (64 ＋ 计数器))<br /> .计次循环尾 ()<br /> 求数组组合 (文本数组, 3, 子集数组, )<br /> 调试输出 (子集数组, 取启动时间 () － 时间1)<br /> 时间1 ＝ 取启动时间 ()<br /> .计次循环首 (10, 计数器)<br />     文本1 ＝ 文本1 ＋ 字符 (64 ＋ 计数器) ＋ “,”<br /> .计次循环尾 ()<br /> 求文本组合 (文本1, 4, , )<br /> 调试输出 (取启动时间 () － 时间1)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 求数组组合, , 公开, 求n-m组合<br /> .参数 参_数组, 文本型, 数组, 组合所有成员<br /> .参数 参_组合位数, 整数型, , 子集成员数<br /> .参数 参_返回数组, 文本型, 数组, 用于存放返回的子集<br /> .参数 参_子集分隔符, 文本型, 可空<br /> .局部变量 局_增量计数器, 整数型, , , 1到最大值的增量计数<br /> .局部变量 局_位记数总量, 长整数型, , , 组合位数计算<br /> .局部变量 局_成员总数, 整数型, , , 组合成员总数<br /> .局部变量 局_位计数, 整数型, , , 当前增量值的1置位数<br /> .局部变量 局_测试位, 整数型, , , 计算1个数用<br /> .局部变量 局_位测试计数器, 整数型, , , 增量计数位计算计数<br /> .局部变量 局_子集数值, 文本型, , , 子集成员临时值<br /> .局部变量 局_文件句柄, 整数型<br /> .局部变量 局_写子集次数, 整数型<br /> <br /> .如果真 (是否为空 (参_子集分隔符))<br />     参_子集分隔符 ＝ “,”<br /> .如果真结束<br /> 局_成员总数 ＝ 取数组成员数 (参_数组)<br /> 局_测试位 ＝ 1<br /> ' 求出组合所有成员的使用位数的数值,<br /> 取变量地址 (局_位记数总量)<br /> 求置位数值 (局_成员总数)<br /> 调试输出 (“循环次数”, 局_位记数总量)<br /> ' 从1开始到最大值,循环求置1位数等于子集位数的数值成员<br /> .计次循环首 (局_位记数总量, 局_增量计数器)<br />     局_位计数 ＝ 求1位数 (局_增量计数器, 局_成员总数)<br />     ' 符合子集数量的数<br />     .如果真 (局_位计数 ＝ 参_组合位数)<br />         局_子集数值 ＝ “”<br />         局_文件句柄 ＝ 打开内存文件 ()<br />         .计次循环首 (局_成员总数, 局_位测试计数器)<br />             ' 计算1置位数量<br />             局_写子集次数 ＝ 0<br />             .如果真 (求1是否置位 (局_增量计数器, 局_位测试计数器))<br />                 局_写子集次数 ＝ 局_写子集次数 ＋ 1<br />                 .如果 (局_写子集次数 ＜ 参_组合位数)<br />                     写出文本 (局_文件句柄, 参_数组 [局_位测试计数器] ＋ 参_子集分隔符)<br />                 .否则<br />                     写出文本 (局_文件句柄, 参_数组 [局_位测试计数器])<br />                 .如果结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         移动读写位置 (局_文件句柄, #文件首, 0)<br />         加入成员 (参_返回数组, 读入文本 (局_文件句柄, ))<br />         关闭文件 (局_文件句柄)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 求1位数, 整数型<br /> .参数 参_数值, 整数型<br /> .参数 参_计算位, 整数型<br /> <br /> 置入代码 ({ 81, 82, 139, 69, 8, 139, 77, 12, 49, 210, 209, 216, 115, 1, 66, 226, 249, 137, 208, 90, 89, 201, 194, 8, 0 })<br /> 返回 (0)<br /> <br /> <br /> .子程序 求1是否置位, 逻辑型<br /> .参数 参_数值, 整数型<br /> .参数 参_计算位, 整数型<br /> <br /> 置入代码 ({ 81, 82, 139, 69, 8, 186, 1, 0, 0, 0, 139, 77, 12, 73, 211, 226, 133, 208, 117, 4, 49, 192, 235, 3, 49, 192, 64, 90, 89, 201, 194, 8, 0 })<br /> 返回 (假)<br /> <br /> <br /> .子程序 求文本组合, 文本型, 公开, 求n-m组合<br /> .参数 参_文本, 文本型, , 组合所有成员<br /> .参数 参_组合位数, 整数型, , 子集成员数<br /> .参数 参_文本分隔符, 文本型, 可空, 文本内容中分隔符号<br /> .参数 参_子集分隔符, 文本型, 可空, 返回子集中分隔符<br /> .局部变量 局_增量计数器, 整数型, , , 1到最大值的增量计数<br /> .局部变量 局_位记数总量, 长整数型, , , 组合位数计算<br /> .局部变量 局_成员总数, 整数型, , , 组合成员总数<br /> .局部变量 局_位计数, 整数型, , , 当前增量值的1置位数<br /> .局部变量 局_测试位, 整数型, , , 计算1个数用<br /> .局部变量 局_位测试计数器, 整数型, , , 增量计数位计算计数<br /> .局部变量 局_子集数值, 文本型, , , 子集成员临时值<br /> .局部变量 局_返回文本, 文本型, , , 返回子集文本<br /> .局部变量 局_文件句柄, 整数型, , , 内存文件句柄<br /> .局部变量 局_文本数组, 文本型, , "0", 组合成员数组<br /> .局部变量 局_写子集次数, 整数型, , , 临时计次变量<br /> <br /> .如果真 (是否为空 (参_文本分隔符))<br />     参_文本分隔符 ＝ “,”<br /> .如果真结束<br /> .如果真 (是否为空 (参_子集分隔符))<br />     参_子集分隔符 ＝ “,”<br /> .如果真结束<br /> 局_文本数组 ＝ 分割文本 (参_文本, 参_文本分隔符, )<br /> 局_成员总数 ＝ 取数组成员数 (局_文本数组)<br /> 局_测试位 ＝ 1<br /> 局_文件句柄 ＝ 打开内存文件 ()<br /> ' 求出组合所有成员的使用位数的数值,<br /> 取变量地址 (局_位记数总量)<br /> 求置位数值 (局_成员总数)<br /> 调试输出 (“循环次数”, 局_位记数总量)<br /> ' 从1开始到最大值,循环求置1位数等于子集位数的数值成员<br /> .计次循环首 (局_位记数总量, 局_增量计数器)<br />     局_位计数 ＝ 求1位数 (局_增量计数器, 局_成员总数)<br />     ' 符合子集数量的数<br />     .如果真 (局_位计数 ＝ 参_组合位数)<br />         局_子集数值 ＝ “”<br />         局_写子集次数 ＝ 0<br />         .计次循环首 (局_成员总数, 局_位测试计数器)<br />             ' 计算1置位数量<br />             .如果真 (求1是否置位 (局_增量计数器, 局_位测试计数器))<br />                 局_写子集次数 ＝ 局_写子集次数 ＋ 1<br />                 .如果 (局_写子集次数 ＜ 参_组合位数)<br />                     写出文本 (局_文件句柄, 局_文本数组 [局_位测试计数器] ＋ 参_子集分隔符)<br />                 .否则<br />                     写出文本 (局_文件句柄, 局_文本数组 [局_位测试计数器] ＋ #换行符)<br />                 .如果结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 移动读写位置 (局_文件句柄, #文件首, 0)<br /> 局_返回文本 ＝ 读入文本 (局_文件句柄, )<br /> 关闭文件 (局_文件句柄)<br /> 返回 (局_返回文本)<br /> <br /> .子程序 求置位数值<br /> .参数 参_置位次数, 整数型<br /> <br /> 置入代码 ({ 82, 81, 139, 77, 8, 49, 210, 66, 73, 249, 209, 210, 226, 251, 137, 16, 89, 90 })

jr21066

超级の赛亚人 发表于 2018-10-26 08:38

https://zh.numberempire.com/combinatorialcalculator.php
巧了.这两个的组合都是210

jr21066

超级の赛亚人 发表于 2018-10-26 08:38

检查中

超级の赛亚人

3位的应该有720个组合吧。
ABC ABD ABE ABF ABG ABH ABI ABJ ACB ACD ACE ACF ACG ACH ACI ACJ ADB ADC ADE ADF ADG ADH ADI ADJ AEB AEC AED AEF AEG AEH AEI AEJ AFB AFC AFD AFE AFG AFH AFI AFJ AGB AGC AGD AGE AGF AGH AGI AGJ AHB AHC AHD AHE AHF AHG AHI AHJ AIB AIC AID AIE AIF AIG AIH AIJ AJB AJC AJD AJE AJF AJG AJH AJI BAC BAD BAE BAF BAG BAH BAI BAJ BCA BCD BCE BCF BCG BCH BCI BCJ BDA BDC BDE BDF BDG BDH BDI BDJ BEA BEC BED BEF BEG BEH BEI BEJ BFA BFC BFD BFE BFG BFH BFI BFJ BGA BGC BGD BGE BGF BGH BGI BGJ BHA BHC BHD BHE BHF BHG BHI BHJ BIA BIC BID BIE BIF BIG BIH BIJ BJA BJC BJD BJE BJF BJG BJH BJI CAB CAD CAE CAF CAG CAH CAI CAJ CBA CBD CBE CBF CBG CBH CBI CBJ CDA CDB CDE CDF CDG CDH CDI CDJ CEA CEB CED CEF CEG CEH CEI CEJ CFA CFB CFD CFE CFG CFH CFI CFJ CGA CGB CGD CGE CGF CGH CGI CGJ CHA CHB CHD CHE CHF CHG CHI CHJ CIA CIB CID CIE CIF CIG CIH CIJ CJA CJB CJD CJE CJF CJG CJH CJI DAB DAC DAE DAF DAG DAH DAI DAJ DBA DBC DBE DBF DBG DBH DBI DBJ DCA DCB DCE DCF DCG DCH DCI DCJ DEA DEB DEC DEF DEG DEH DEI DEJ DFA DFB DFC DFE DFG DFH DFI DFJ DGA DGB DGC DGE DGF DGH DGI DGJ DHA DHB DHC DHE DHF DHG DHI DHJ DIA DIB DIC DIE DIF DIG DIH DIJ DJA DJB DJC DJE DJF DJG DJH DJI EAB EAC EAD EAF EAG EAH EAI EAJ EBA EBC EBD EBF EBG EBH EBI EBJ ECA ECB ECD ECF ECG ECH ECI ECJ EDA EDB EDC EDF EDG EDH EDI EDJ EFA EFB EFC EFD EFG EFH EFI EFJ EGA EGB EGC EGD EGF EGH EGI EGJ EHA EHB EHC EHD EHF EHG EHI EHJ EIA EIB EIC EID EIF EIG EIH EIJ EJA EJB EJC EJD EJF EJG EJH EJI FAB FAC FAD FAE FAG FAH FAI FAJ FBA FBC FBD FBE FBG FBH FBI FBJ FCA FCB FCD FCE FCG FCH FCI FCJ FDA FDB FDC FDE FDG FDH FDI FDJ FEA FEB FEC FED FEG FEH FEI FEJ FGA FGB FGC FGD FGE FGH FGI FGJ FHA FHB FHC FHD FHE FHG FHI FHJ FIA FIB FIC FID FIE FIG FIH FIJ FJA FJB FJC FJD FJE FJG FJH FJI GAB GAC GAD GAE GAF GAH GAI GAJ GBA GBC GBD GBE GBF GBH GBI GBJ GCA GCB GCD GCE GCF GCH GCI GCJ GDA GDB GDC GDE GDF GDH GDI GDJ GEA GEB GEC GED GEF GEH GEI GEJ GFA GFB GFC GFD GFE GFH GFI GFJ GHA GHB GHC GHD GHE GHF GHI GHJ GIA GIB GIC GID GIE GIF GIH GIJ GJA GJB GJC GJD GJE GJF GJH GJI HAB HAC HAD HAE HAF HAG HAI HAJ HBA HBC HBD HBE HBF HBG HBI HBJ HCA HCB HCD HCE HCF HCG HCI HCJ HDA HDB HDC HDE HDF HDG HDI HDJ HEA HEB HEC HED HEF HEG HEI HEJ HFA HFB HFC HFD HFE HFG HFI HFJ HGA HGB HGC HGD HGE HGF HGI HGJ HIA HIB HIC HID HIE HIF HIG HIJ HJA HJB HJC HJD HJE HJF HJG HJI IAB IAC IAD IAE IAF IAG IAH IAJ IBA IBC IBD IBE IBF IBG IBH IBJ ICA ICB ICD ICE ICF ICG ICH ICJ IDA IDB IDC IDE IDF IDG IDH IDJ IEA IEB IEC IED IEF IEG IEH IEJ IFA IFB IFC IFD IFE IFG IFH IFJ IGA IGB IGC IGD IGE IGF IGH IGJ IHA IHB IHC IHD IHE IHF IHG IHJ IJA IJB IJC IJD IJE IJF IJG IJH JAB JAC JAD JAE JAF JAG JAH JAI JBA JBC JBD JBE JBF JBG JBH JBI JCA JCB JCD JCE JCF JCG JCH JCI JDA JDB JDC JDE JDF JDG JDH JDI JEA JEB JEC JED JEF JEG JEH JEI JFA JFB JFC JFD JFE JFG JFH JFI JGA JGB JGC JGD JGE JGF JGH JGI JHA JHB JHC JHD JHE JHF JHG JHI JIA JIB JIC JID JIE JIF JIG JIH

超级の赛亚人

jr21066 发表于 2018-10-26 08:17
是呀.重复的应该没用吧

jr21066

超级の赛亚人 发表于 2018-10-26 08:16
不重复的组合？

是呀.重复的应该没用吧

超级の赛亚人

不重复的组合？出来的看着也不是啊