delphi - X,Y 字符串的大量组合

Question

首先请原谅我的英语不好。我正在尝试生成从 str: TStringList (Xn, Yn) 获取符号的组合，其中 X 是新单词中字符的位置，Y 是该位置的变量。
例如，让我们说我的StringList有

str[0]: '013456789'          
str[1]: 'abcdef'
str[2]: '5421'

在本例中，我将压缩 216 个单词 (length(str[0]) * length(str[1]) * length(str[2])) 结果将类似于:

str[0][1]+ str[1][1]+ str[2][1] -> 0a5
str[0][1]+ str[1][1]+ str[2][2] -> 0a4
str[0][1]+ str[1][1]+ str[2][3] -> 0a2
str[0][1]+ str[1][1]+ str[2][4] -> 0a1

str[0][1]+ str[1][2]+ str[2][1] -> 0b5
str[0][1]+ str[1][2]+ str[2][2] -> 0b4
str[0][1]+ str[1][2]+ str[2][3] -> 0b2
str[0][1]+ str[1][2]+ str[2][4] -> 0b1

str[0][1]+ str[1][3]+ str[2][1] -> 0c5
str[0][1]+ str[1][3]+ str[2][2] -> 0c4
str[0][1]+ str[1][3]+ str[2][3] -> 0c2
str[0][1]+ str[1][3]+ str[2][4] -> 0c1

依此类推，直到

str[0][10]+ str[1][6]+ str[2][3] -> 9f2 
str[0][10]+ str[1][6]+ str[2][4] -> 9f1

现在我很困惑如何制作“FOR”循环来为每个可能的单词制作圆圈。

最诚挚的问候马丁

Answer 1

这可以通过递归来完成。

procedure Recurse(startIx,stopIx: Integer; prefix: String; const aList: TStringList);
var
  ch : Char;
begin
  if (startIx > stopIx) then begin
    WriteLn(prefix);
  end
  else
  begin
    for ch in aList[startIx] do begin
      Recurse( startIx+1,stopIx,prefix + ch,aList);
    end;
  end;
end;

<小时/>

Recurse(0,str.Count-1,'',str);

递归乍一看似乎很神奇，但它是解决此类组合问题的一种非常有效的方法。

这个问题的解决方案是Cartesian product .

如果您有较旧的 Delphi 版本，请像这样迭代该字符:

procedure Recurse(startIx,stopIx: Integer; prefix: String; const aList: TStringList);
var
  i : Integer;
begin
  if (startIx > stopIx) then begin
    WriteLn(prefix);
  end
  else
  begin
    for i := 1 to Length(aList[startIx]) do begin
      Recurse( startIx+1,stopIx,prefix + aList[startIx][i],aList);
    end;
  end;
end;