控制堆栈溢出的技术？

Question

基本上，我的程序将尝试生成所有可能的小写 5 个字母单词的列表。包括所有显然不是真正单词的组合，例如 jshcc 或 mmdzq。

我通过堆积大量的函数调用来做到这一点，这使得这个词起作用。

但这实在是太多了，我收到了堆栈溢出错误。

有人会如何控制它？

Answer 1

基本上，从递归转换为迭代。通常，这涉及创建一个 Stack 作为“逻辑”堆栈或类似的东西。

然而，我本以为生成所有可能的 5 个字母单词列表的方法只会有一个大约 5 深的堆栈 - 每个字母一个。每个堆栈级别将负责一个字母级别 - 因此堆栈的“顶部”将迭代每个可能的最后一个字母；下一个堆栈帧将迭代所有可能的第四个字母，递归调用该方法以迭代所有可能的最后一个字母等。类似这样的东西（C#代码，但希望你能理解它并将其应用到VB）：

const string Letters = "abcdefghijklmnopqrstuvwxyz";

public static List<string> GenerateValidWords(int length)
{
    List<string> words = new List<string>();
    GenerateValidWords(0, new char[length], words);
    return words;
}

private static void GenerateValidWords(int depth, char[] current,
                                       List<string> words)
{
    foreach (char letter in letters)
    {
        current[depth] = letter;
        if (depth == current.Length - 1)
        {
            string word = new string(current);
            if (IsValid(word))
            {
                words.Add(word);
            }
        }
        else
        {
            GenerateValidWords(depth + 1, current, words);
        }
    }
}

现在，如果你不这样做没有任何类型的过滤，这将生成 11,881,376 个单词 - 每个单词 24 字节（在 x86 上）约为 285MB - 加上列表等的所有空间。不应该杀死一台足够大的机器，但它内存相当大。您确定您需要所有这些吗？

Answer 2

作为一个简单的解决方案，我将使用具有多个循环的迭代方法来生成这些单词：

Dim words As New List(Of String)

Dim first As Integer = Asc("a")
Dim last As Integer = Asc("z")

For one As Integer = first To last
    For two As Integer = first To last
        For three As Integer = first To last
            For four As Integer = first To last
                For five As Integer = first To last
                    words.Add(Chr(one) & Chr(two) & Chr(three) & Chr(four) & Chr(five))
                Next
            Next
        Next
    Next
Next

MsgBox(words.Count)