Doppelte Werte in einem Array zählen...

[Nuclear-Ping]

Delphi-Quellcode:

  Result := 0;
  for I := 0 to High(ErstesArray) do
    if Count[ErstesArray[I]] > 1 then
      Inc(Result);

Yep, das hab ich gesehen, mich allerdings gefragt, was du damit erreichen willst. Denn kommt da nicht einfach eine "große" Zahl raus?

Result ist ja vor der Schleife 0 und wird in der Schleife bei jedem Wert, der > 1 ist erhöht. Das heisst, dass Result dann nach der Schleife die Anzahl der Werte enthält, die > 1 sind, oder lieg ich da falsch?

Angenommen wir haben in Count durch die Zählung folgendes Ergebnis:

Code:

Index:  0 1 2 3 4 5 6 n
Zähler: 0 0 2 0 2 3 0 n
Result:     1   2 3 ...

Result wäre also in dem Beispiel nach dem Durchlauf 3.

Zitat:

Es gibt aber auch andere Möglichkeiten dieses Problem sehr effizient (zeitlich, nicht speichermäßig) hinzubekommen. [...]

Ja, ich glaub, ich weiss, was du meinst. Richtig klick gemacht hats zwar nicht, jedoch gedämmert.

Grüße,
Mario