香川组合的递归代码

wqfzqgk

支持一下，不错的递归

香川群子

增加一个，元素可重复的组合结果代码：

1. Dim sj, jg(), m, n, k
   
2. Sub 元素可重复组合递归()
   
3.     tms = Timer
   
4.     m = [a1].End(4).Row
   
5.     sj = [a1].Resize(m)
   
6.     n = [b1]
   
7.     AC = WorksheetFunction.Combin(m + n - 1, n)
   
8.     ReDim jg(AC, n)
   
9.     k = 0
   
10.     Call cfzhdg("", 1, 0)
    
11.     [b3] = AC
    
12.     [d1].CurrentRegion = ""
    
13.     [d1].Resize(AC, n + 1) = jg
    
14.     [d1].Resize(, n + 1).EntireColumn.AutoFit
    
15.     MsgBox Timer - tms
    
16. End Sub
    
17. Sub cfzhdg(s$, i, t%)
    
18.     If t = n Then
    
19.         p = Split(s, ",")
    
20.         For j = 1 To n
    
21.             jg(k, j) = sj(p(j), 1)
    
22.             jg(k, 0) = jg(k, 0) & "," & sj(p(j), 1)
    
23.         Next
    
24.         jg(k, 0) = Mid(jg(k, 0), 2): k = k + 1: Exit Sub
    
25.     End If
    
26.     For j = i To m
    
27.         Call cfzhdg(s & "," & j, j, t + 1)
    
28.     Next j
    
29. End Sub
    

复制代码

彭希仁

Sub cfzhdg(s$, i, t%)
    If t = n Then
        p = Split(s, ",")
        For j = 1 To n                       '此处可精简
            jg(k, j) = sj(p(j), 1)
            jg(k, 0) = jg(k, 0) & "," & sj(p(j), 1)
        Next
        jg(k, 0) = Mid(jg(k, 0), 2): k = k + 1: Exit Sub
    End If
    For j = i To m
        Call cfzhdg(s & "," & j, j, t + 1)
    Next j
End Sub

彭希仁

用到递归了，其实就可以不用FOR

不重复的组合类似于二进制的组合，有1的就要嘛，0的就不要嘛。

递归只要做到一生二，二生四，四生八

redsuc

顶个赞!
留个记!

fzkoko

挺好的，谢谢

wenwen000424

作个记号，学习一下。

-过河修桥-

{:soso_e135:}我想玩转这些数字

thumba

作记号，弄明白了递归再来看

青见

递归的实际应用？