next up previous contents index
suivant: Un exercice monter: Calcul de AP mod N précédent: Traduction Algorithmique   Table des matières   Index

Traduction Xcas

puimod(a,p,n):={
//calcule recursivement la puissance rapide a^p modulo n
 if (p==0){
    return(1);
 } 	
 if (irem(p,2)==0){
    return(puimod(irem(a*a,n),iquo(p,2),n));
 } 
 return(irem(a*puimod(a,p-1,n),n));
}


Documentation de giac écrite par Renée De Graeve