当前位置:编程学习 > C#/ASP.NET >>

一个排列组合问题

现有一字符串数组: sp = {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}

如何实现数字“0”到“1”转变的所有排列组合?

举例:
sp中含1个“1”的排列组合有:

sp = {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
sp = {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
sp = {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
sp = {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"}
sp = {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"}
sp = {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"}
sp = {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"}
sp = {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"}
sp = {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
sp = {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
sp = {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
sp = {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}

sp中含2个“1”的排列组合
。。。
sp中含12个“1”的排列组合
sp = {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"}


求从sp中含1个“1”一直到含12个“1”的排列组合算法 --------------------编程问答--------------------     ' n为数量
    ' 这个算前边的还好,算后边数量变少的时候就慢,你把算法倒过来算12附近的会快些!

    Dim sp As String = "0 0 0 0 0 0 0 0 0 0 0 0"
    Dim n As Byte = 3
    Dim Re(50000) As String
    Dim x As Integer = -1
    Dim s As Integer = 0
    Dim num As Byte = 1
    Private Sub xxx(ByVal c As Integer)
        ListBox1.Items.Add(" ")
        ListBox1.Items.Add("开始输出" & num & "个1集合")
        Dim ssp() As String
        Dim i, j As Integer
        Dim text As String = ""
        For j = s To c
            ssp = Split(Re(j), " ")
            For i = 0 To 11
                text = ""
                If ssp(i) = 0 Then
                    x += 1
                    ssp(i) = 1
                    text = Join(ssp, " ")
                    Re(x) = text
                    ListBox1.Items.Add(text)
                    ssp(i) = 0
                End If
            Next
        Next
        s = c + 1
        num += 1
        If num > N Then Exit Sub
        xxx(x)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Re(0) = "0 0 0 0 0 0 0 0 0 0 0 0"
        xxx(0)
    End Sub --------------------编程问答-------------------- 不好意思,我这个生成的很多重复的..... --------------------编程问答-------------------- 自己顶一个,好久没来了,怎么现在人气这么差,以前要不了半天就有好多热心的朋友帮忙 
--------------------编程问答-------------------- 是不是太复杂了?有没人给点思路,望高手指点 --------------------编程问答-------------------- 条件过于巧合,如果基于这个巧合

那么直接+1就可以了 --------------------编程问答-------------------- 你把我写的那个过滤一下就可以了! --------------------编程问答--------------------
' n为数量
  ' 这个算前边的还好,算后边数量变少的时候就慢,你把算法倒过来算12附近的会快些!

  Dim sp As String = "0 0 0 0 0 0 0 0 0 0 0 0"
  Dim n As Byte = 3
  Dim Re(50000) As String
  Dim x As Integer = -1
  Dim s As Integer = 0
  Dim num As Byte = 1
  Private Sub xxx(ByVal c As Integer)
  ListBox1.Items.Add(" ")
  ListBox1.Items.Add("开始输出" & num & "个1集合")
  Dim ssp() As String
  Dim i, j As Integer
  Dim text As String = ""
  For j = s To c
  ssp = Split(Re(j), " ")
  For i = 0 To 11
  text = ""
  If ssp(i) = 0 Then
  x += 1
  ssp(i) = 1
  text = Join(ssp, " ")
  Re(x) = text
  ListBox1.Items.Add(text)
  ssp(i) = 0
  End If
  Next
  Next
  s = c + 1
  num += 1
  If num > N Then Exit Sub
  xxx(x)
  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Re(0) = "0 0 0 0 0 0 0 0 0 0 0 0"
  xxx(0)
  End Sub
--------------------编程问答-------------------- 考试题。自己是新手,等待高手解答
补充:.NET技术 ,  VB.NET
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,