Bruteforce Algorithmus

[himitsu]

Mit BruteForceLengthIndex kann man ausrechnen, welchen Berechnungsindex die erste Kombination mit n Stellen besitzt.
Wie schon gesagt, hätte man das auch mathematisch und ohne Schleife "errechnen" können.

Bei dir wurde damit also der Index berechnent, über welchen dann bei BruteForce 'aaa' rauskommt.

Und nein, es werden nicht alle Werte für 3 und 4 Stellen berechnet, sondern nur noch der erste 4-Stellige.
Für 3 Stellen hätte also if s = 'aaaa' then exit; grad noch so geklappt.

Vielleicht sieht es so besser/übersichtlicher aus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  CHARS = 'abcdefghijklmnopqrstuvwxyz';
  TEST = 'zzz';
var
  Index, Stop: Int64;
  s: string;
begin
  Index := BruteForceLengthIndex(Length(TEST), CHARS);
  Stop := BruteForceLengthIndex(Length(TEST) + 1, CHARS) - 1;
  while Index <= Stop do
  begin
    s := BruteForce(Index, CHARS);
    Caption := s;
    if s = TEST then
      break;
    Inc(Index);
  end;
end;

oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  CHARS = 'abcdefghijklmnopqrstuvwxyz';
  TEST = 'zzz';
var
  Start, Stop, Index: Int64;
  s: string;
begin
  Start := BruteForceLengthIndex(Length(TEST), CHARS);
  Stop := BruteForceLengthIndex(Length(TEST) + 1, CHARS) - 1;
  Index := Start;
  while Index <= Stop do
  begin
    s := BruteForce(Index, CHARS);
    Caption := Format('%s (%.1n%%)', [s, (Index - Start) / (Stop - Start) * 100]);
    if s = TEST then
      break;
    Inc(Index);
  end;
end;

Und um bei Olli mitzumachen:
Och, auch mit Ansi könnte es schön schnell sein,
vorallem wenn man nicht ständig den ganzen String komplett neu zusammenstellt, sondern nur die relevanten Teile ändert.

PS: Über den AnsiString als Result muß nur ein Zeiger kopiert und die Referenzzählung angepaßt werden, wärend beim ShortString der komplette Record/String kopiert werden muß.
Als Var-Parameter, anstatt als Result, wär's bestimmt schneller, wärend die zuvielen Result := Chars[...] + Result; als SetLength(Result, Len); und Result[i] := Chars[...]; sowieso viel ersparen würde.

[Luckie]

Also wäre der BruteForce Algorithmus noch optimierbar? Ich weiß nicht, ob das bei mir was bringt, denn der Flaschenhals liegt an anderer Stelle, auf die ich keinen Einfluss habe.

Ich habe die Funktion jetzt in MaxKombinations umbenannt.

[SirThornberry]

Also wenn du kein Moderator wärest wäre ich jetzt besorgt das du mit solchen Funktionen hantierst und hier bei der Frage nicht angibst wofür du das ganze benötigst. Denn du weißt ja - manchmal gibt es auch eine bessere/sinnvollere Variante wenn man denn nur den eigentlichen Verwendungszweck kennt.

[Luckie]

Ja, verstehe ich. Aber genau deswegen bin ich etwas zurückhaltend mit Informationen, weil ich mir selbst noch nicht sicher bin, ob ich das Resultat groß bewerben will/kann.