分组组合的问题

alvinwowo

如果现在我有12个物件A到L，将它们分成3组，每组4个。有办法列出全部一共34650组合吗？看过很多大大的VBA都没有做分组的。这问困扰我好久了….先谢谢了。

wanghan519

还是用的wps现成的排列组合库，a生成34650组，t用排序消除了6种重复，所以只有5775行结果
里面G是那个抄来的库，Module2是代码，第一次写递归的生成器，也不知到有没有错，运行需要将近10秒。。。

huanghai22

34650组合是怎么来的？12个分3组，每组4个不是应该第一组：12*11*10*9=1180，第二组：8*7*6*5=1680，第三组：4*3*2*1=24，一共1180+1680+24=13584，不知道我的理解对不对？

wanghan519

huanghai22 发表于 2023-3-22 11:32
34650组合是怎么来的？12个分3组，每组4个不是应该第一组：12*11*10*9=1180，第二组：8*7*6*5=1680，第三组 ...

每一组都要除以24，去掉重复的排列，毕竟前两组都确定了第三组就只有1种选法，然后三者是相乘的，这样是34650组，最后还要除以6，去掉重复的排列，最后是5775种分组方法
C(12,4)*C(8,4)*C(4,4)/A(3,3)

wanghan519

加了个if，这个if和计算组合情况下的start参数类似，时间从10秒降到50毫秒，直接出5775行，js还蛮令人激动的