MJFunctions - kleine Funktionssammlung

[Dezipaitor]

Es wäre schön, wenn man die Quellen der 3th party Funktionen mit angeben könnte. Dadurch wird der echte Autor honoriert. thx

[Flare]

Ich habe mir mal deinen Primzahltest angeschaut, der ist aber vergleichsweise langsam.

Delphi-Quellcode:

function Prim(Value: Cardinal): Boolean;
var
 i              : Cardinal;

begin
 if Value = 2 then Result := True
 else
  begin
   Result := False;
   for i := 2 to Trunc(Sqrt(Value)) + 1 do
    begin
     if Value mod i = 0 then
      begin
       Result := False;
       Break;
      end
     else Result := True;
   end;
  end;
end;

Ich würde ihn so schreiben.

Delphi-Quellcode:

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

Ich weiß, dass es bestimmt noch Methoden gibt diese Funktion zu verschnellern, aber meine ist schon mal bei großen Zahlen fast doppelt so schnell, da sie in 2er-Schritten zählt.

[Hawkeye219]

Hallo Willy,

Zitat:

Zitat von Flare

Ich weiß, dass es bestimmt noch Methoden gibt diese Funktion zu verschnellern, aber meine ist schon mal bei großen Zahlen fast doppelt so schnell, da sie in 2er-Schritten zählt.

ich vermute, daß deine Funktion eher langsamer ist, weil sie bei jedem Schleifendurchlauf eine Wurzelberechnung durchführt. Das Prinzip, die geraden Zahlen zu überspringen, ist natürlich richtig.

Gruß Hawkeye

[Mazel]

@ Dezipaitor:

Wie ich schon im ersten Beitrag geschrieben habe, sind viele Funktionen aus eigener Hand entstanden, weil ich sie in meinen Projekten gebraucht bzw. geschrieben habe, andere wurden, um zb. nicht die SysUtils zu nutzen, erstellt, aber auch aus eigener Hand, wenn man zb. die Val() und Str() Funktionen einzusetzen weis oder auch LowerCase und UpperCase. Auch wenn ich zugeben muss, dass nicht alle Ideen von mir sind, so bin ich durch Zufall auf wikipedia auf die Seite für das Schalltjahr gekommen und da dachte ich eine Funktion zu schreiben.
Lediglich die Funktionen aus der MJSystems und MJColors sind aus der windows.pas.


@ himitsu:

Die Funktionen in MJColors erwarten als Paramter eine RGB-Farbe. Vorher müsste also ColorToRGB aufgerufen werden, bevor die Farbe an einer der Funktionen übergeben wird. Leider habe ich es bisher noch nicht geschaft, eine ColorToRGB zu schreiben.


Gruß
Mazel

[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 :)

Auch sind die ganzen exits unschön ...

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

Delphi-Quellcode:

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

[Flare]

Zitat:

Zitat von xZise

Auch sind die ganzen exits unschön ...

Dann sei auch so konsequent und ersetze das exit in der Schleife mit einem break :lol:


Flare

[Mazel]

Bei dieser Sammlung ging es mir in erster Linie nicht um die Geschwindigkeit des Codes. Zudem weis ich auch nicht, bei welcher Aufgabe es beim Prüfen auf Primzahl auf die Schnelligkeit ankommt.

[himitsu]

Zitat:

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:

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 :shock:

[xZise]

Oh... das habe ich übersehen...
Jetzt die ultimative Variante ohne breaks, exits und nur einem sqrt :D

Delphi-Quellcode:

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

Zum sqrt: Ich bin mir nicht sicher, ob es mit i² funktioniert...

[himitsu]

da ist es mit Break besser :angel:

Delphi-Quellcode:

while (i <= sr) and (Result) do

hier wird ja bei jedem Durchgang Result ausgewertet.
(also Result laden und vergleichen)
Bei Break gibt es keine zusätzliche(n) Prüfung/Befehl wärend die Schleife durchlaufen wird, denn Break wird ja nur ausgeführt, wenn die Schleife abgebrochen werden soll.

Ansonsten ginge es auch noch so :angel2:

Delphi-Quellcode:

function Prim(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 Result and (i <= sr) do
    begin
      Result := Value mod i <> 0;
      Inc(i, 2);
    end;
  end;
end;