Übergebenes Array: low() immer 0?

[negaH]

oder noch besser:

Delphi-Quellcode:

var 
  C: array[Boolean] of Integer; 
  I: Integer; 
  J: Boolean;
begin 
  C[False] := 0; 
  C[True] := 0; 
  J := False; 
  for I := Low(Array) to High(Array) do 
  begin 
    Inc(C[J], Array[I]); 
    J := not J;
  end; 
  Result := C[False] + C[True] * 3; 
end;

Wichtig ist

1.) Multiplikation mit *3 wird nur einmalig durchgeführt
2.) es gibt in der Schleife nur Additionen
3.) es gibt in der Schleife KEINE bedingten Sprünge, sprich Abfragen wie IF THEN und somit keine unnötigen Branches in der CPU, ergo der Code kann wesentlich schneller ausgeführt werden
4.) durch das separate J ist der Algo. unabhängig von der Array[] Deklaration
5.) durch J: Boolean muß auf J keinerlei zeitraubende Operation durchgeführt werden, ein simples NOT reicht aus
6.) durch die separate Addition auf 2 Elementesummen halbiert sich die Gefahr eines Integer-Überlaufes und erst am Ende der Schleife kann es eine ERangeCheck Exception geben

Gruß Hagen