0-9排列组合的问题

kowloon

不会是唯一, 只要将945组的前后顺序打乱, 便会出不同组合
多提供一组
09        18        27        36        45
08        19        26        35        47
07        16        29        34        58
06        17        25        39        48
05        14        28        37        69
04        15        23        68        79
03        12        49        56        78
02        13        46        57        89
01        24        38        59        67

wygrl

恩，是的
首行取值的不同，结果也是不同的。

实在是太感谢楼上kowloon了！

A0101

九楼的兄弟你真是厉害啊，小弟佩服啊

jyin218

kowloon 发表于 2009-7-31 00:25
01        23        45        67        89
02        13        46        58        79
03        12        47        59        68

大哥，你好，请问可以把1至12共十二个数字以这种方式排列出来吗？只排一种就行了。见链接http://club.excelhome.net/thread-1105771-1-1.html

bluexuemei

1. Sub bxm()
   
2. '须安装ACTIVERUBY.才能运行
   
3. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
4. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
5. ojs.eval ("def combinations_string(a, n);" _
   
6. & "return unless a.size == n.inject(:+);" _
   
7.   & "s=a.combination(n[0]).to_a;" _
   
8.   & "n[1..-1].each do |i|;" _
   
9.     & "s.length.times do;" _
   
10.      & "x = s.pop;" _
    
11.      & "(a-x).combination(i){|b| s.unshift(x+b) if x[-i..-1].join < b.join};" _
    
12.     & "end;" _
    
13.   & "end;" _
    
14.   & "s.map {|t| n.map{|r| t.shift(r).join }};" _
    
15. & "end")
    
16. y = ojs.eval("combinations_string([*0..9],[2]*5)")
    
17. [a1].Resize(UBound(y) + 1, 5) = y
    
18. Set ojs = Nothing
    
19. 'Stop
    
20. End Sub

复制代码