随机化字符串列表

Question

我怎样才能像这个在线工具一样随机化 StringList 中的字符串。如果有人熟悉它，请检查：http://textmechanic.co/Randomize-List.html

Answer 1

执行随机播放的一种常见算法是Fisher-Yates 随机播放。这会生成均匀分布的排列。

要在 Delphi TStrings 对象上实现，您可以使用：

procedure Shuffle(Strings: TStrings);
var
  i: Integer;
begin
  for i := Strings.Count-1 downto 1 do 
    Strings.Exchange(i, Random(i+1));
end;

现在，虽然理论上这将生成均匀分布的排列，但实际性能在很大程度上取决于随机数生成器的质量。这在 Knuth 的计算机编程艺术，第 2 卷，第 3.4.2 节，算法 P 中进行了讨论。

进一步阅读：

• Fisher-Yates shuffle（维基百科）
• Jeff Attwood 关于洗牌的两篇博客文章：Shuffling 和 The Danger of Naïveté
• The intuition behind Fisher-Yates shuffling（伊莱·本德斯基）
• Art of Computer Programming，Donald Knuth，第 2 卷，第 3.4.2 节
• Shuffling（维基百科）

Answer 2

只需遍历字符串列表并给每个项目一个不同的随机位置：

for i := StringList.Count - 1 downto 1 do
  StringList.Exchange(i, Random(i+1));

[编辑] 稍微改变循环以使洗牌均匀。

Answer 3

要随机化 TStrings，请使用 随机结果值从 TComparer 创建一个比较器，并用它对 TStrings 进行排序。

/// The Comparer
TMyShuffleComparer= class(TComparer<string>)
public
  function Compare(const Left, Right: string): Integer; override;
end;

/// The randomizer 
function TMyShuffleComparer.Compare(const Left, Right: TCard): Integer;
begin
  // To sort, get a random number for compare result
  Result := Random(100) - 50;
end;

/// How to call the comparer
procedure TMyStrings.Shuffle;
begin
 Sort(TMyShuffleComparer.Create);
end;

或直接调用：

  /// Shuffle
  MyString.Sort(TMyShuffleComparer.Create);