求大神优化这样的排列组合算法

elwlb

不会弄了，求路过的大神看看，这样的组合排列怎么计算？
.版本 2
.支持库 spec
.子程序 子程序1
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 数组3, 文本型, , "0"
.局部变量 数组4, 文本型, , "0"
.局部变量 数组5, 文本型, , "0"
.局部变量 层数, 整数型
.局部变量 文本, 文本型
.局部变量 c1, 整数型
.局部变量 c2, 整数型
.局部变量 c3, 整数型
.局部变量 c4, 整数型
.局部变量 c5, 整数型
数组1 ＝ { “A”, “B”, “C” }
数组2 ＝ { “AA”, “BB”, “CC”, “DD” }
数组3 ＝ { “AAA”, “BBB”, “CCC”, “DDD”, “EEE” }
层数 ＝ 3
.如果真 (层数 ＝ 1)
    文本 ＝ “”
    .计次循环首 (取数组成员数 (数组1), c1)
        文本 ＝ 文本 ＋ 数组1 [c1] ＋ “,”
    .计次循环尾 ()
.如果真结束
.如果真 (层数 ＝ 2)
    文本 ＝ “”
    .计次循环首 (取数组成员数 (数组1), c1)
        .计次循环首 (取数组成员数 (数组2), c2)
            文本 ＝ 文本 ＋ 数组1 [c1] ＋ “+” ＋ 数组2 [c2] ＋ “,”
        .计次循环尾 ()
    .计次循环尾 ()
.如果真结束

.如果真 (层数 ＝ 3)
    文本 ＝ “”
    .计次循环首 (取数组成员数 (数组1), c1)
        .计次循环首 (取数组成员数 (数组2), c2)
            .计次循环首 (取数组成员数 (数组3), c3)
                文本 ＝ 文本 ＋ 数组1 [c1] ＋ “+” ＋ 数组2 [c2] ＋ “+” ＋ 数组3 [c3] ＋ “,”
            .计次循环尾 ()
        .计次循环尾 ()
    .计次循环尾 ()
.如果真结束

.如果真 (层数 ＝ 4)
    文本 ＝ “”
    .计次循环首 (取数组成员数 (数组1), c1)
        .计次循环首 (取数组成员数 (数组2), c2)
            .计次循环首 (取数组成员数 (数组3), c3)
                .计次循环首 (取数组成员数 (数组4), c4)
                    文本 ＝ 文本 ＋ 数组1 [c1] ＋ “+” ＋ 数组2 [c2] ＋ “+” ＋ 数组3 [c3] ＋ “+” ＋ 数组4 [c4] ＋ “,”
                .计次循环尾 ()
            .计次循环尾 ()
        .计次循环尾 ()
    .计次循环尾 ()
.如果真结束

.如果真 (层数 ＝ 5)
    文本 ＝ “”
    .计次循环首 (取数组成员数 (数组1), c1)
        .计次循环首 (取数组成员数 (数组2), c2)
            .计次循环首 (取数组成员数 (数组3), c3)
                .计次循环首 (取数组成员数 (数组4), c4)
                    .计次循环首 (取数组成员数 (数组5), c5)
                        文本 ＝ 文本 ＋ 数组1 [c1] ＋ “+” ＋ 数组2 [c2] ＋ “+” ＋ 数组3 [c3] ＋ “+” ＋ 数组4 [c4] ＋ “+” ＋ 数组5 [c5] ＋ “,”
                    .计次循环尾 ()
                .计次循环尾 ()
            .计次循环尾 ()
        .计次循环尾 ()
    .计次循环尾 ()
.如果真结束
' 层数=6...................................
调试输出 (文本)



补充内容 (2019-5-5 23:29):
数组无穷多，我在上面列出3组数组，手工写了5组循环，如果还有第四五六七八九...组数组，下面怎么计算，总不能手动加上无穷多的循环，求大神指点
有没有更简单的计算方法，无论有多少组数组，都能排列出这中组合

NOCOL

递归组合.e (8.49 KB, 下载次数: 34)

2019-5-6 01:06 上传

点击文件名下载附件 在给你个优化的，自己看

易正易则

新建 易程序 (3).e (2.91 KB, 下载次数: 5)

2019-5-5 23:21 上传

点击文件名下载附件


补充内容 (2019-5-5 23:22):
我是不是理解错了= =

补充内容 (2019-5-5 23:24):
不过貌似没看懂你的层数有何特别用处，难道你的数组是随机的？

elwlb

易正易则 发表于 2019-5-5 23:21
补充内容 (2019-5-5 23:22):
我是不是理解错了= =

是我没表达清楚，数组可能有很多，如果数组有很多的时候，那得写多少对应的循环才可以，所以，有没有一种计算方法可以组合无限多的数组

elwlb

易正易则 发表于 2019-5-5 23:21
补充内容 (2019-5-5 23:22):
我是不是理解错了= =

数组1
数组2
数组3
................
这里可能有更多的数组，层数是根据多少个数组来定的，有十个数组，就有十层数

NOCOL

  

子程序名	返回值类型	公开	备 注
_临时子程序

调试输出 (递归组合 ({ “A,B,C”, “AA,BB,CC,DD”, “AAA,BBB,CCC,DDD,EEE” }, , ))

子程序名	返回值类型	公开	备 注
递归组合	文本型
参数名	类 型	参考	可空	数组	备 注
欲组合文本	文本型
参数_索引	整数型
参数_文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型
strArr	文本型		0
res	文本型
groupStr	文本型
rec	文本型

如果真 (取数组成员数 (欲组合文本) ＜ 参数_索引)
返回 (“,”)
参数_索引 ＝ 选择 (是否为空 (参数_索引), 1, 参数_索引)
strArr ＝ 分割文本 (欲组合文本 [参数_索引], “,”, )
计次循环首 (取数组成员数 (strArr), i)
groupStr ＝ 选择 (参数_文本 ＝ “”, 参数_文本, 参数_文本 ＋ “+”) ＋ strArr [i]
res ＝ res ＋ 选择 (取数组成员数 (欲组合文本) ＝ 参数_索引, groupStr, “”) ＋ 递归组合 (欲组合文本, 参数_索引 ＋ 1, groupStr)
计次循环尾 ()
返回 (res)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> <br /> 调试输出 (递归组合 ({ “A,B,C”, “AA,BB,CC,DD”, “AAA,BBB,CCC,DDD,EEE” }, , ))<br /> <br /> .子程序 递归组合, 文本型<br /> .参数 欲组合文本, 文本型, 数组<br /> .参数 参数_索引, 整数型, 可空<br /> .参数 参数_文本, 文本型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 strArr, 文本型, , "0"<br /> .局部变量 res, 文本型<br /> .局部变量 groupStr, 文本型<br /> .局部变量 rec, 文本型<br /> <br /> .如果真 (取数组成员数 (欲组合文本) ＜ 参数_索引)<br />     返回 (“,”)<br /> .如果真结束<br /> 参数_索引 ＝ 选择 (是否为空 (参数_索引), 1, 参数_索引)<br /> strArr ＝ 分割文本 (欲组合文本 [参数_索引], “,”, )<br /> .计次循环首 (取数组成员数 (strArr), i)<br />     groupStr ＝ 选择 (参数_文本 ＝ “”, 参数_文本, 参数_文本 ＋ “+”) ＋ strArr <i><br />     res ＝ res ＋ 选择 (取数组成员数 (欲组合文本) ＝ 参数_索引, groupStr, “”) ＋ 递归组合 (欲组合文本, 参数_索引 ＋ 1, groupStr)<br /> .计次循环尾 ()<br /> 返回 (res)