Permutation/Anagram eines Strings erzeugen

[3_of_8]

Die folgende Funktion erzeugt ein Anagramm aus einem übergebenen String.

Es ist darauf zu achten, dass vor ihrem Aufruf einmal Randomize; aufgerufen wurde.

Delphi-Quellcode:

function MakeAnagram(str: string): string;
var I, n, r: Integer;
    c: Char;
begin
  result:=str;
  n:=length(result);
  for I:=1 to n do
  begin
    r:=i+random(n-I+1);
    c:=result[I];
    result[I]:=result[r];
    result[r]:=c;
  end;
end;

(Fisher und Yates-Algorithmus)

[edit=Chakotay1308]Titel geändert. Mfg, Chakotay1308[/edit]