Primfaktorzerlegung läuft viel zu langsam...

[mkinzler]

Delphi-Quellcode:

if x mod i = 0 then 
begin
    result := false;
    exit;
end;