MJFunctions - kleine Funktionssammlung

[himitsu]

Zitat von xZise:

Die Wurzel kann man vereinfachen:
Statt auf Wurzel(x) zu überprüfen, kann man auch prüfen ob i² = x ist
Außerdem könnte man es einmal in eine Variable schreiben, da sich "Value" nicht ändern (sollte)... Dabei könnte man es auch konstant machen

Ich habe es mal größtenteils optimiert... Das mit den Quadrat hab ich mal nicht eingebaut... war mir net sicher...

sicher wäre es vermutlich schon, aber so ist es schon besser, da die berechnung nur einmal gemacht wird.

Bei i² müte das ja schließlich jedesmal berechnet werden.

Zitat von xZise:

Auch sind die ganzen exits unschön ...

na ja .. dat Letzte könntest du och noch loswerden.

Delphi-Quellcode:

function Prim(const Value: Cardinal) : Boolean;
var
  i, sr : Cardinal;
begin
  if (Value <= 1) or ((Value mod 2 = 0) and (Value => 2)) then
    Result := false
  else if Value > 2 then
  begin
    Result := true;
    i := 3;
    sr := Trunc(Sqrt(Value)) + 1;
    while i <= sr do
      if Value mod i = 0 then
      begin
        Result := false;
        break;
      end
      else 
        Inc(i, 2);
  end;
end;

eventuell könnte man die Schleife auch umdrehn:

Delphi-Quellcode:

function Prim(const Value: Cardinal) : Boolean;
var
  i: Cardinal;
begin
  if (Value <= 1) or ((Value mod 2 = 0) and (Value => 2)) then
    Result := false
  else if Value > 2 then
  begin
    Result := true;
    i := (Trunc(Sqrt(Value)) + 1) or 1;
    while i >= 3 do
      if Value mod i = 0 then
      begin
        Result := false;
        break;
      end
      else 
        Dec(i, 2);
  end;
end;

[add]
ups, da war ja schon einer mit'm Exit