Re: I need the fastest routine

Hello Clément,

"Clément Doss" <cdoss@xxxxxxxxxx> schrieb im Newsbeitrag
news:487b94ee@xxxxxxxxxxxxxxxxxxxxxxxxx
The original code I <VBG>optimized</VBG>:

procedure MinMaxArrayOrig( aArray : Array of Double; out aMinArray,
aMaxArray : Array
of double );
var
i : integer;
begin
aMinArray[1]:=aArray[0];
aMaxArray[1]:=aArray[0];
i:=1;
while (i<=high(aArray)) do begin
aMaxArray[ ord( aArray[i] > aMaxArray[1] ) ] := aArray[i];
aMinArray[ ord( aArray[i] < aMinArray[1] ) ] := aArray[i];
inc(i)
end;
end;

I see Double instead of Integer!
What is the history?

mfg.
Herby

--
http://www.hubert-seidel.de


.

Relevant Pages

  • Re: TrySetLength not possible !? :(
    ... The length of the array is supposed to be the number of elements. ... function SkybuckTrySetLength(var ParaVar; const ParaNewLength: ... vWord: array of Word; ... vLongword: array of Longword; ...
    (alt.comp.lang.borland-delphi)
  • (patch for Bash) regex case statement
    ... Following up on my previous patch for regex conditional tests, ... /* Return an array of strings; ... int dollarflag, zeropad, compareflag; ... SHELL_VAR *var; ...
    (comp.unix.shell)
  • Re: Updated datestamp doesnt work
    ... Public Sub StoreOldVals ... ' store values of current row in array ... Dim n As Integer, intlast As Integer ... Dim var As Variant ...
    (microsoft.public.access.gettingstarted)
  • Re: Updated datestamp doesnt work
    ... Public Sub StoreOldVals ... ' store values of current row in array ... Dim n As Integer, intlast As Integer ... Dim var As Variant ...
    (microsoft.public.access.gettingstarted)
  • Re: addEvent - The late entry :)
    ... approach used in converting an - arguments - object into an array can be chosen at the point of needing to do it. ... I did include a dedicated function in my tests (one that did little more than create a new array and loop over the 'array index' properties of its argument object copying values to corresponding properties of the new array). ... the number of iterations should be the most that any particular system will allow without putting up the 'A script on this page ... ... var argsIndex = 0; ...
    (comp.lang.javascript)