从M个数字中抽取N个数字做不重复的排列组合，并自动显示出来

年级倒数第二

求助：从M个数字中抽取N个数字做不重复的排列组合，并自动显示出来。

备注：M的个数不定,例如：M=(1 5 6 10 14 17 33 37 38 41 45 51)
          N的个数固定为5，谢谢。
         

今铭昔

山菊花

供参考。

LIUZHU

参与下，排列组合的思路比较烧脑，拿以前做过的代码改的

LIUZHU

也是JSA代码，供参考

1. function 生成排列组合(){
   
2.         const n=5, szarr=Range("a1:a12").Value2.flat();
   
3.         let arr=myplzh(szarr,"组合",szarr.length,n);
   
4.         Range("g1").Resize(arr.length,arr[0].length).Value2=arr;
   
5.         function myplzh(szarr,type,m,n){
   
6.                 if (m<n) return;
   
7.                 let arr=[], temp=new Array(n).fill(null);
   
8.                 let h=0;                                        //h：统计递归所在的层数，不超过最底层(n-1)
   
9.                 let getplzh=(k)=>{                //k：递归循环的起始位置
   
10.                         for (let i=k;i<m;i++){
    
11.                                 if (temp.includes(szarr[i])) continue;                //统计不重复值
    
12.                                 temp[h]=szarr[i];
    
13.                                 if (temp[n-1]!=null) arr.push([...temp]);
    
14.                                 if (h<n-1){                                        //判断是否到达底层(n-1)，未达到则继续往下一层递归
    
15.                                         h++;                                        //层数递增
    
16.                                         getplzh(type=="组合"?i+1:0);                //递归,如果是组合，起始位置从i+1开始，否则从0开始
    
17.                                 }
    
18.                         }
    
19.                         temp[h]=null;                //退出本层之前，将元素位置置空(null)
    
20.                         h--;                                //循环结束，退回到递归的上一层
    
21.                 }
    
22.                 getplzh(0);
    
23.                 return arr;
    
24.         }
    
25. }
    

复制代码

LIUZHU

附件在此，请审核

grf1973

万变不离其宗，先定边界条件，再遍历，找到下一组参数，递归调用。

grf1973

7楼是全排列，共9万多组。如果只要组合的话，修改一下nxtnums即可。nxtnums=nums.slice(i+1)

一江春水1688

排列组合，几十年前的知识，许多知识点都有点忘了，看看百度或者AI搜索能否找回。
到时候再来细品各位高手的代码。
前几天刚好看到【看见星光】版主的精彩代码：https://club.excelhome.net/thread-1607654-1-1.html，一并收录

中华美德

今铭昔 发表于 2024-5-28 07:06

大佬请完善一下，这位前辈老师的解答：https://club.excelhome.net/thread-1687408-1-1.html