Schnittmenge von mehreren Mengen ermitteln

[Panthrax]

Code:

11 Messungen:
function Intersect(var Left: TSampleArray; const Right: TSampleArray);
* mit Length(Left) = Length(Right) = N = 10000000 // 10 Mio.
* mit denselben Daten für jede Routine
* mit zufällig generierten Daten für jede Messung
* in Millisekunden

             Messung  #19, Pascal  #39, Pascal  #45, Pascal  #35, Assembler
                   1      242          224          160              64
                   2      246          221          161              62
                   3      244          224          159              63
                   4      248          221          161              67
                   5      247          246          174              64
                   6      252          221          172              61
                   7      249          222          168              62
                   8      251          227          161              60
                   9      261          231          160              61
                  10      263          236          160              62
                  11      255          221          157              61

          Mittelwert      250,727      226,727      163,000          62,455
  Standardabweichung        6,665        8,026        5,639           1,968

Anmerkungen:

• Testsystem: Intel i7, Windows 7
• Den Mittelwert und die Standardabweichung füge ich mit Excel hinzu.
• Verglichene Implementierungen:
  #19 (Pascal, Furtbichler) ist der erste Vorschlag;
  #39 (Pascal, Furtbichler) ist eine korrigierte und verbesserte Variante von #19;
  #45 (Pascal, Panthrax) ist eine verbesserte Variante von #37;
  #35 (Assembler, Amateurprofi).