Calculo Simbólico y Matemático con la HP 40G
P/2-
P
>
A*A mod N-
A
>
si no
A*PUI mod N -
>
P-1-
P
>
/fsi/
/fmientras/
resultado PUI
/ffuncion/
Si P es impar, P-1 es par.
por lo tanto podemos escribir:
funcion puismod (A, P, N)
local PUI
1-
PUI
>
mientras P
0 ejecuta
>
si P mod 2=1 entonces
A*PUI mod N-
P-1-
P
>
/fsi/
P/2-
P
>
A*A mod N-
A
>
/fmientras/
resultado PUI
/ffonction/
8.4.2
Traduccion en la HP 40G
p
El cálculo A
mod N se utiliza en el programa del método probabilístico de Mr.
Rabin (véase.7.6).
158
PUI
PUI
>
Programas de Aritmetica