Lotto Systemspiele berechnen

[wurzelzwerg]

Danke MrSpock, schau ich mir an.
Was hälst du davon?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TSpiel = record
    z1, z2, z3, z4, z5, z6: integer;
  end;
var
  i, k, l, m, n, o, p, max: integer;
  tipps: array of TSpiel;
  tipp: array[1..16] of integer;
begin
  for i:= 1 to 16 do
    tipp[i]:= i;  // bzw. individueller Tipp 
  max := 16;
  i := 1;
  for k := 1 to max - 5 do
    for l := k + 1 to max - 4 do
      for m := l + 1 to max - 3 do
        for n := m + 1 to max - 2 do
          for o := n + 1 to max - 1 do
            for p := o + 1 to max do
            begin
              SetLength(tipps, i);
              tipps[i - 1].z1 := tipp[k];
              tipps[i - 1].z2 := tipp[l];
              tipps[i - 1].z3 := tipp[m];
              tipps[i - 1].z4 := tipp[n];
              tipps[i - 1].z5 := tipp[o];
              tipps[i - 1].z6 := tipp[p];
              inc(i);
            end;

  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;
  for i := Low(tipps) to high(tipps) do
  begin
    Memo1.Lines.Add(IntToStr(tipps[i].z1) + ' ' +
      IntToStr(tipps[i].z2) + ' ' +
      IntToStr(tipps[i].z3) + ' ' +
      IntToStr(tipps[i].z4) + ' ' +
      IntToStr(tipps[i].z5) + ' ' +
      IntToStr(tipps[i].z6));
  end;
  Memo1.Lines.EndUpdate;
  Caption := IntToStr(Memo1.Lines.Count) + ' Tippreihen';
end;

Nun bleibt noch das VEW.
Sind das von Lotto festgelegte Kombinationen die man sich definieren muss?

[BoolString]

Hab den Thread nur kurz überflogen. Meinst du so etwas:

Delphi-Quellcode:

Procedure TForm1.CalcCombinatoricGenes (CombinatoricResult, Rest : String; CalcDepth : Integer);
Var Runner  : Longint;
    Counter : Int64;
Begin
//  If (Rest='') Or (CalcDepth=0) THen
//  Begin
//    If CheckRules (CombinatoricResult)THen
//    Begin
//      ListBox1.Items.Add(CombinatoricResult);
//    end;

    ListBox1.Items.Add (CombinatoricResult);

  end
  Else
  Begin
    For Runner := 1 to Length (Rest) do
    Begin
      CalcCombinatoricGenes (CombinatoricResult + Rest [Runner],
                               Copy (Rest, 1, Runner-1) + Copy (Rest, Runner+1, Length (Rest)-1),
                               CalcDepth-1);
    end;
  end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  CalcCombinatoricGenes ( '', '123456789', 5);
end;

Komlett rekursiv.

- CombinatoricResult enthält die Ergebnisse
- Rest enthält die noch nicht entnommenen Elemente; bei erstem Aufruf die übergebene Liste der zur Verfügung stehenden Elemente
- Depth sagt, wie viele Elemente aus der Ursprungsmenge von Rest entnommen werden sollen

Für deine Anwendung müsstest du dir überlegen, wie du deine Zahlen/Elemente 'tokenisen' kannst. Z.B. in Chars umwandeln. Bin mir aber gerade nicht sicher, ob das komplett Unicode konform ist...

Falls das komplett am Ziel vorbei schießt, schmeist meinen Beitrag einfach aus dem Thread...

Jan

[Sir Rufo]

Auf den ersten Blick: Das löppt so nicht ...

[MrSpock]

Zitat:

Zitat von wurzelzwerg (Beitrag 1126097)

Danke MrSpock, schau ich mir an.
Was hälst du davon?
...

Die Lösung funktioniert auch. Die rekursive ist allgemeiner, weil sie prinzipiell für beliebige n und m funktioniert. Die iterative Lösung ist dafürwohl etwas schneller.

[Bjoerk]

Zitat:

Zitat von MrSpock (Beitrag 1126039)

Also hier mal das, was ich mit n_aus_m meinte. Eine schnuckelige rekursive Prozedur, die das Vollsystem erzeugt ;-)

Stimmt, schnuckelige Procedure. Hast du die auch für N aus N (N Fakultaet Möglichkeiten) ? Könnte ich für meine Schneideskizze gebrauchen.

[MrSpock]

Zitat:

Zitat von Bjoerk (Beitrag 1126141)

Zitat:

Zitat von MrSpock (Beitrag 1126039)

Also hier mal das, was ich mit n_aus_m meinte. Eine schnuckelige rekursive Prozedur, die das Vollsystem erzeugt ;-)

Stimmt, schnuckelige Procedure. Hast du die auch für N aus N (N Fakultaet Möglichkeiten) ? Könnte ich für meine Schneideskizze gebrauchen.

Was genau meinst du mit N aus N? Bei N aus N gibt es nur genau eine Möglichkeit, nämlich alle N Elemente. :?

[Bjoerk]

Alle möglichen Kombinationen (nicht sortiert).

Beispiel: N = 3

1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1

[leddl]

Zitat:

Zitat von Bjoerk (Beitrag 1126163)

Alle möglichen Kombinationen (nicht sortiert).

Beispiel: N = 3

1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1

Bei n über k ist die Reihenfolge irrelevant :zwinker: Es geht beim Lotto schließlich nur um die gezogenen Zahlen, nicht in welcher Reihenfolge diese angekreuzt wurden ;)

[Bjoerk]

Zitat:

Bei n über k ist die Reihenfolge irrelevant :zwinker: Es geht beim Lotto schließlich nur um die gezogenen Zahlen, nicht in welcher Reihenfolge diese angekreuzt wurden ;)

Kein Mensch hat was anderes behauptet, ich benötige das für etwas anderes, -> siehe # 25.

[leddl]

Zitat:

Zitat von Bjoerk (Beitrag 1126170)

Kein Mensch hat was anderes behauptet, ich benötige das für etwas anderes, -> siehe # 25.

Mir ist bewusst, dass du was anderes willst. Du hattest aber in Bezug auf MrSpocks Funktion nach "n aus n" gefragt. Die liefert aber nunmal etwas grundlegend anderes ab ;)
Das was du suchst, nennt sich "Permutation" und sollte ohne Probleme hier im Forum zu finden sein.