datenvergleich: kleinste gemeinsamkeit

[Meflin]

Hi,
ich habe in 4 arrays daten (nur ganzzahlen). nun möchte ich 3 dieser arrays vergleichen, und zwar rausfinden, welche am wenigsten zahlen aus dem 4. array gemeinsam haben. wie macht man das am dümmsten? eine umwandlung der daten in andere formate sollte auch kein problem sein, ich brauche nur irgendeinen lösungsweg...

*MFG*

[Delphi-Freak]

Naja, ich würde das so lösen:
Du brauchts 3 Variablen (Zahlen), z.B. matches1, matches2, matches3.
Dann durchläufst du über drei for-Schleifen die 3 Arrays und fragst für jedes Element ab, ob es im 4. Array drinnen ist, wenn ja, dann zählst du zu matches1 bzw. matches2/3 eins dazu. Am Schluss schaust du welches der 3 Zahlen die kleinste ist und weißt dann wo's die wenigsten Übereinstimmungen gibt. 8)

Hoffe es ist dir hilfreich

LG

[Meflin]

gut, das dachte ich auch, nur dass es auch 5 oder 6 oder 100 arrays sein können, die verglichen werden müssen. hätt ich vielleiht gleich sagen sollen... was dann? sprich die anzahl der arrays ist variable, nicht vorhersehbar!

[Delphi-Freak]

naja, wenn es komponenten wären, z.b. bilder (abgesehen davon, dass bilder nicht als arrays anzusprechen sind ), dann wäre es auch nicht so schwer.
statt den 3 for-schleifen folgender code:

Delphi-Quellcode:

for i := 0 to anzahlarrays do begin
   element := TImage(FindComponent('bild' + inttostr(i)));
   for j := 0 to Length(element) do begin
      ...
   end;
end;

sollte funzzen

wie das dann mit arrays geht no ahnung, vielleicht nur findcomponent?

LG

[Meflin]

hab ne lösung, dass ich da nicht gleich drauf gekommen bin :
hab ein zusätzlichers array das so lang ist wie die anzahl der zu vergleichenden arrays und in dem für jedes array einen counter...

*MFG*

[shmia]

Zitat von Meflin:

hab ein zusätzlichers array das so lang ist wie die anzahl der zu vergleichenden arrays und in dem für jedes array einen counter...

Oder noch sparsamer:
Der Vergleich 2er Arrays liefert eine Zahl mit Anzahl der Übereinstimmung (ich nenns mal Alpha).
Jetzt brauchst du dir nur noch das Minimum an Übereinstimmung und den Index des
dazugehörenden Arrays zu merken.

Delphi-Quellcode:

minimum_arrayindex := 0;
minimum_alpha := maxInt;

for i := 0 to anzahlarrays do
begin
   alpha := Vergleiche(masterarray, array[i]);
   if alpha < minimum_alpha then
   begin
      minimum_alpha := alpha;
      minimum_arrayindex := i;
   end ;
end;