Ich erstelle eine Liste der Kombinationen von N Elementen zur 3ten Klasse und möchte den Index einer bestimmten Kombination ermitteln.
Die Elemente sind 0, 1, 2 … N-1.
Der Index soll 0-basierend sein.
Beispiel N=5
Code:
I A B C
0) 0 1 2
1) 0 1 3
2) 0 1 4
3) 0 2 3
4) 0 2 4
5) 0 3 4
6) 1 2 3
7) 1 2 4
8) 1 3 4
9) 2 3 4
Für N Elemente zur 2ten Klasse habe ich folgende Funktion
Delphi-Quellcode:
FUNCTION CombiIndex2(N,A,B:Integer):Integer;
var H:Integer;
begin
if A>B then begin
H:=A;
A:=B;
B:=H;
end;
Result:=(((N+N-1-A)*A) shr 1) + B-A - 1;
end;
Die habe vor mehr als 20 Jahren erstellt und kann heute nicht mehr nachvollziehen wie ich darauf gekommen bin (wohl 'ne Altersdemenz) , und schaffe es auch nicht, eine entsprechende Funktion für Kombinationen zur 3-ten Klasse zu schreiben. Ich stehe da irgendwie auf dem Schlauch.
Frage:
Kennt jemand eine Lösung wie man den Index einer bestimmten Kombination in der Liste der Kombinationen von N Elementen zur 3ten Klasse ermitteln kann oder noch besser eine allgemeine Lösung für beliebige Klassen. Die Lösung soll natürlich nicht sein, die Liste der Kombinationen zu erstellen und dann zu suchen.