2

我正在尝试编写一个单词组合生成器，我的意思是打印具有“X”字符串长度的“X”个字符的所有可能组合，

首先，我需要说我在 StackOverFlow 中看到了一个关于这个问题的问题，其中有很多单词生成器的答案可以做到这一点（在不同的语言上），但是请不要将其标记为重复或不评论我的问题只是为了引用我的链接，因为我已经测试了该问题的所有 C# 和 VBNET 代码，但实际上没有一个能按预期 100% 工作，请参阅我需要的组合：

例如，如果我有 "a"、"b" 和 "c" 字符，并且我想在长度为 "3" 的字符串中生成这些字符的所有组合，那么这就是我期望的结果：

' Expected result, 27 combinations:
'
' aaa
' aab
' aac
'
' aba
' abb
' abc
'
' aca
' acb
' acc
'
' baa
' bab
' bac
'
' bba
' bbb
' bbc
'
' bca
' bcb
' bcc
'
' caa
' cab
' cac
'
' cba
' cbb
' cbc
'
' cca
' ccb
' ccc

（排序无所谓，我可以稍后排序。）

...但是到目前为止，这是我能得到的预期结果：

'a
'aa
'aaa
'b
'bb
'bbb
'c
'cc
'ccc

这一次我以前用两种语言（Ruby 和 Batch）做过，但是使用嵌套 Fors（很多 Fors 在一起，每个 Fors 只将一个字母附加到另一个用于输出），当然如果我想在 VBNET 中这样做是避免被很多Fors起诉，并以更好的性能方式来做。

在下面的代码中，您可以看到我如何尝试在 RAM 内存（数组）中分配所有组合，而不是将它们写入物理磁盘，因此我想使用逻辑方法并以更好的性能方式编写此代码，然后我想首先将所有组合“保存在内存中”，这也是我不想使用大量 fors （性能）的原因。

这是我最后一次尝试，所有内容都在注释行中进行了解释：

Public Class Form1

    Dim characters As Char()  ' Default value: {"a","b","c"}
    Dim StringLength As Int64 ' Default value: 3
    Dim TotalCombinations As Int64 ' Default value: 27
    Dim strarray(99999999) As String ' Default size: "99.999.999" million of combinations in memory (I need to confirm this from an expert).

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim index As Int64 = 0

    For column As Int64 = 0 To TotalCombinations - 1 ' For 0 to 26

        For Each character As Char In characters ' Characters = {"a","b","c"}

            If column < index Then
                index = 0 ' I reset index value 'cause... just experimenting things.
                Try
                    strarray(index) += characters(index)
                    RichTextBox1.Text += strarray(index) & ControlChars.NewLine
                Catch
                End Try
            Else
                Try
                    strarray(index) += characters(index)
                    RichTextBox1.Text += strarray(index) & ControlChars.NewLine
                Catch
                End Try
            End If
        Next

        index += 1

    Next

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        characters = sender.text.ToCharArray ' Result: {"a","b","c"}
        Calculate_Combinations() ' Result: 27
    End Sub

    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
        StringLength = sender.value ' Result: 3
        Calculate_Combinations() ' Result: 27
    End Sub

    Private Sub Calculate_Combinations()
        Try
            TotalCombinations = ((characters.LongLength * StringLength) * StringLength) ' Result: 27
            Label1.Text = ((characters.LongLength * StringLength) * StringLength) & " number of combinations." ' Result: 27
        Catch : End Try
    End Sub

End Class

我精确的帮助。

4

2 回答 2

2

使用@pengyang的 Linq 与 IEnumerables 一起使用的绝妙解决方案：

Private Shared Function GetCombinations(Of T)(list As IEnumerable(Of T), length As Integer) As IEnumerable(Of IEnumerable(Of T))
    If length = 1 Then
        Return list.[Select](Function(x) New T() {x})
    End If

    Return GetCombinations(list, length - 1).SelectMany(Function(x) list, Function(t1, t2) t1.Concat(New T() {t2}))
End Function

然后：

Dim result = GetCombinations("abc", 3)

来自 LinqPad 的屏幕截图：http: //i.imgur.com/Xgjg9bz.png

于 2013-06-06T13:11:33.563 回答
0

三个嵌套循环

    Dim foo As String = "abc"
    For Each c1 As Char In foo
        For Each c2 As Char In foo
            For Each c3 As Char In foo
                Debug.WriteLine(String.Join("", c1, c2, c3))
            Next
        Next
    Next
于 2013-06-06T13:16:22.793 回答