Permutationen erzeugen

[glkgereon]

Hi,

Ich habe aus Eigenbedarf eine kurze Funktion geschrieben, um Permutationen zu erzeugen.
Also eigentlich sind es zwei: bei der einen einen sind die Elemente Chars, bei der anderen Strings.
Beispiel:
will man aus 123 die Werte 123,132,213,231,... machen, so ist Funktion 1 richtig
möchte man dagegen aus AB,CD,EF die Werte AB,CD,EF; AB,EF,CD; CD,AB,EF; CD,EF,AB;... machen, so ist Funktion 2 richtig...

Die einzige Methode die ich bisher gesehn hab für die zweite ist von Hagen in der CodeLib...mit Sicherheit deutlich schneller :)
aber erstens glaube ich, das für viele eine StringList deutlich einfacher zu handhaben ist, und zum zweiten ist mein Quellcode deutlich kürzer und daher für viele etwas besser verständlich :)

Die Erste nimmt als Parameter einen String mit den Werten, und gibt eine StringList zurück.

Delphi-Quellcode:

type
  TSL = TStringList;
  TSLArr = array of TSL;

procedure Permute(var Lst: TStringList; const Vals: string; const Akt: string);
var
  i: Integer;
  S: string;
begin
  if Length(Vals) = 0 then
    Lst.Add(Akt) //Permutation fertig
  else
    for i := 1 to Length(Vals) do
    begin
      S := Vals;
      Delete(S, i, 1);
      Permute(Lst, S, Akt + Vals[i]);
    end;
end;

Die Zweite nimmt als Parameter eine StringList mit den Werten, und gibt einen Array of TStringList zurück.

Delphi-Quellcode:

procedure PermuteExt(var Lst: TSLArr; const Vals: TSL; const Akt: TSL);
var
  i: Integer;
  V, A: TSL;
begin
  if Vals.Count = 0 then
  begin
    SetLength(Lst, Length(Lst) + 1);
    Lst[Length(Lst) - 1] := TStringList.Create;
    Lst[Length(Lst) - 1].AddStrings(Akt);
  end
  else
  begin
    V := TSL.Create;
    A := TSL.Create;
    for i := 0 to Vals.Count - 1 do
    begin
      A.Clear;
      A.AddStrings(Akt);
      A.Add(Vals[i]);
      V.Clear;
      V.AddStrings(Vals);
      V.Delete(i);
      PermuteExt(Lst, V, A);
    end;
    V.Free;
    A.Free;
  end;
end;

prinzipiell genau das selbe Raster....

ein Beispiel-Projekt gibt es auch noch dazu (nicht beschweren, Halt mal so schnell gemacht :) )

[edit=Matze]Code formatiert. Mfg, Matze[/edit]