M取N排列问题

bsyy · 发表于 2022-8-7 02:11:07

看了贴子

M取N数据全排列
https://bbs.125.la/forum.php?mod=viewthread&tid=14514863

其中，它ABCD排列时，正常是ABC,ABD,ACD三个，可是它竟然是
屏幕截图 2022-08-07 020927.png

组数不是我想要的。。。请问如何修改。附上源码。请帮忙修改后上传。感谢

20191206-M取N数据全排列.e (9.19 KB, 下载次数: 6)

cqcc · 发表于 2022-8-7 10:50:37

这是全排列，你要得应该是组合才对，搜索m选n组合即可

补充内容 (2022-8-7 10:57):
.版本 2

.子程序返回全部组合, 整数型
.参数待组合文本, 文本型
.参数组合后文本, 文本型, 数组
.局部变量文本字符, 文本型, , "0"
.局部变量长度, 整数型
.局部变量位, 整数型, , "0"
.局部变量临时数组, 文本型, , "0"
.局部变量组合, 文本型
.局部变量 i, 整数型

加入成员 (组合后文本, 待组合文本)
文本_逐字分割 (待组合文本, 文本字符)
长度＝取数组成员数 (文本字符)
.如果真 (长度 ≤ 0)
返回 (0)
.如果真结束
重定义数组 (位, 假, 长度)
.计次循环首 (长度, i)
位 <i> ＝ 1
.计次循环尾 ()
.判断循环首 (位 [1] ≤ 长度)
临时数组＝文本字符
组合＝ “”
.计次循环首 (长度, i)
      位 [长度－ i ＋ 1] ＝位 [长度－ i ＋ 1] ＋ 1
      .如果 (位 [长度－ i ＋ 1] ＞ i)
         .如果 (长度－ i ＋ 1 ＝ 1)
            返回 (取数组成员数 (组合后文本))
         .否则
            位 [长度－ i ＋ 1] ＝ 1
         .如果结束

      .否则
         跳出循环 ()
      .如果结束

.计次循环尾 ()
.计次循环首 (长度, i)
      组合＝组合＋临时数组 [位 <i>]
      删除成员 (临时数组, 位 <i>, )
.计次循环尾 ()
加入成员 (组合后文本, 组合)
.判断循环尾 ()
返回 (取数组成员数 (组合后文本))

明天自然醒 · 发表于 2022-8-7 10:55:46

排列组合数.e (147.03 KB, 下载次数: 21)

orjg · 发表于 2022-8-7 14:44:02

根据楼主描述，加上个排序就好了

		自动登录	找回密码
密码			注册

[易语言] M取N排列问题

点评