【最优组合算法】之递归以及循环算法，及其组合结果输出实用附件

晓宁宁

晓宁宁 发表于 2014-10-21 19:12
虽然不懂，但还是觉得很厉害。

大神，感觉你跟群子都是高人！

张雄友

多列输出比单列输出更高效，更省时。达到了一边释放内存，一边输出结果的境界。

张雄友

小fisher  也达到了一边释放内存，一边输出结果的境界。具体哪个帖子不记得了!

香川群子

一楼增加了附件。

组合结果合并为字符串形式输出时，增加了：
① 对齐字符f
如 1,2,3,11,22,33,111,222,333 时
将数字 1添加 00、数字11添加0，得到都是3位长度的数值。

1 →  001
11 →  011
111 →  111

组合结果为：
1,2,3  →  001,002,003
1,22,333  →  001,022,333

如果f为空，则保持原始状态不变。即组合结果为 1,2,3 或 1,22,333 等。

也可以使用空格、或其它任意字符的首个字符作为对齐字符使用。

…………………………

② 分隔字符w
可以是任意长度的任意字符串。

bmdsjxyw

厉害的会越来越厉害，顶！

koala219

这个有意思，现在是看帖子，都不想买彩票了！长见识，实惠！

香川群子

更新，受lee1982启发，循环组合算法的速度效率又提高了 20-25%

1. Function Combin_3(m&, n&) 'New 一番早い 百万結果=0.06-0.1s
   
2.     If n >= m Or n < 2 Then Exit Function
   
3.    
   
4.     Dim i&, j&, j2&, k&, tms#
   
5.     tms = Timer
   
6.    
   
7.     ReDim a&(1 To n), b&(1 To n)
   
8.     For j = 1 To n - 1
   
9.         a(j) = j: b(j) = m - n + j
   
10.     Next
    
11.     a(n - 1) = n - 2
    
12.    
    
13.     For j = n - 1 To 1 Step -1
    
14.         i = a(j) + 1: a(j) = i
    
15.         If i = b(j) Then
    
16.             k = k + 1 'Output
    
17.         Else
    
18.             For j2 = j + 1 To n - 1
    
19.                 i = i + 1: a(j2) = i
    
20.             Next
    
21.             j = n
    
22.             For i = i + 1 To m
    
23. '                a(n) = i
    
24.                 k = k + 1 'Output
    
25.             Next
    
26.         End If
    
27.     Next
    
28.     Combin_3 = k
    
29. End Function

复制代码

算法要点：
① 末位n位循环递增到最大m值、并输出结果
② 自n-1位开始降序检查：
    a. 本位值i+1、然后检查升位后的本位值i
    b. 如果本位值已达上限则可直接输出、然后继续降序检查
    c. 如果本位值未达上限，则
       d. 升序直至n-1位，每一位阶梯+1、然后又进入①输出组合结果

以上循环至第1位处理完成(达到上限)后即可结束全部组合。

很有趣，很高效的算法。

其中，把各个位的上限值事先计算好存入数组b，可以明显提高速度。

香川群子

组合循环算法更新后的附件。

香川群子

各种组合算法速度比较：

EXCEL江湖

香川群子 发表于 2014-12-19 16:21
组合循环算法更新后的附件。

厉害！香川老师的算法太牛了！
另当数据量过大时，输出时可否采用分段输出！生成多个文件！或生成多个工作簿表。使输出的文件不致于过大。