Effiziente Erzeugung, nicht gleicher Zufallszahlen

[Satty67]

himitsu's Variante #1 scheint am einfachsten

Delphi-Quellcode:

Count := Length(A);
for i := Low(A) to High(A) do
  XChange(i, Low(A) + Random(Count);