Exponentiation Modulaire Rapide
Contenu du snippet
function ExpMod(n, e, m: Longword): Longword;
begin
Result := 1; { Initialisation }
while e <> 0 do { Tant que l'exposant n'est pas arrivé à 0 }
begin
if (e and 1) <> 0 then { Si e est impair }
begin
Dec(e); { On décrémente e }
Result := Result * n; { On multiplie le résultat par n }
end;
Result := Result mod m; { On prend le résultat modulo m }
e := e shr 1; { On divise e par deux (décalage binaire ici ) }
n := Sqr(n) mod m; { On effectue l'exponentiation modulaire }
end;
end;
Compatibilité : Delphi 5
Disponible dans d'autres langages :
A voir également
- Exponentiation Modulaire Rapide
- Exponentiation modulaire python - Forum Python
- Programmation modulaire - Forum C / C++ / C++.NET
- Exponentiation binaire sur Biginterger ✓ - Forum Java
- Requete avec champ modulaire - Forum Delphi / Pascal
- Anagramme rapide - Forum Java
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.