SRL Archive - SRL Suggestions

if this was ported to delphi and into wizzypluggin it might be nice…

Function AverageIntegerArray(TIA: TIntegerArray): integer;
var
  i, t :integer;
begin
  t := High(TIA);
  for i := 0 to t do
    Result := Result + TIA[i];

  Result := Round(Result / Length(TIA));
end;

~RM

Added, thanks.

Lmao, I made one of these a while ago. It's like… 17 lines long xD.

~Sandstorm

Also added AverageExtended

Does SCAR truncate integers after division? If so, you probably wouldn't need Round in there at all.

EDIT: Nevermind, I'm tired. :(

From: Method
Does SCAR truncate integers after division? If so, you probably wouldn't need Round in there at all.

Truncation is different from rounding. To demonstrate, run this:

program New;
begin
Writeln(IntToStr(Round(6.55)));
Writeln(IntToStr(655/100));
end.

Oh, whoops. I probably should get some sleep, considering this has happened multiple times recently.

In the day you didn't get functions to SRL like that :<

http://www.villavu.com/forum/showthread.php?t=2104

Yeah, seems that he is a mod so he gets to do that :p

Getting off topic… closed. :)