- Delphi / Pascal : Factorisation et test de primalité 32 bits ultra optimisé - CodeS So
- C / C++ / C++.NET : Test de primalité B: Miller-Rabin 32 bits - CodeS SourceS
- C / C++ / C++.NET : Direct draw pixel 8,16 ou 32 bits test - CodeS SourceS
- Compatibilité VB6.0 et windows 7
- Dectection parfaite des collisions mode 32 bits
17 juil. 2010 à 01:33
Mais merci quand même. Remarque que cette fonction n'est pas cruciale, elle sert juste à précalculer les nombres premiers jusqu'à 65521.
Cordialement, Bacterius !
16 juil. 2010 à 21:04
J'ai pas testé ton application, juste regardé brievement le code, mais vu que l'on parle d'optimisation, ne serait-il pas plus rapide de changer la fonction root comme suit :
function Root(N: Longword): Longword;
var
Temp : LongWord ;
begin
Result := 1;
Temp := 3;
while ( N > Temp ) do
begin
Dec(N, Temp);
Inc(Result);
Inc(Temp,2);
end;
Inc(Result);
end;
Ceci afin d'éviter la répétition du calcul Result*2 + 1.
N.B. La fonction proposée, si ça se trouve, est elle aussi améliorable ;)
Cordialement.
14 juil. 2010 à 01:56
Mais je vais essayer pour voir ...
Cordialement, Bacterius !
13 juil. 2010 à 18:17
Au niveau rapidité, c'est pas mieux d'inclure la megaliste de premier dans un fichier ressource ?