|
@ -314,7 +314,7 @@ const sqrt_mod_p_t sqrt_mod_p (const cl_modint_ring& R, const cl_MI& a) |
|
|
} |
|
|
} |
|
|
var uintL l = integer_length(p); |
|
|
var uintL l = integer_length(p); |
|
|
var uintL e = ord2(p-1); |
|
|
var uintL e = ord2(p-1); |
|
|
//if (e > 30 && e > l/(log((double)l)*0.72-1))
|
|
|
|
|
|
|
|
|
//if (e > 30 && e > l/(::log((double)l)*0.72-1))
|
|
|
if (e > 30 && e > l/(::log((double)l)*0.92-2.41)) |
|
|
if (e > 30 && e > l/(::log((double)l)*0.92-2.41)) |
|
|
// Algorithm 2.
|
|
|
// Algorithm 2.
|
|
|
return cantor_zassenhaus_sqrt(R,a); |
|
|
return cantor_zassenhaus_sqrt(R,a); |
|
|