bridge/class-master/depend/pari/src/basemath/arith1.c
/* emulate Z_issquareall on single-word integers */
emulate Z_issquareall on single-word integers
emulate Z_issquareall on single - word integers
long
uissquareall(ulong A, ulong *sqrtA)
{
  if (!A) { *sqrtA = 0; return 1; }
  if (carremod(A))
  {
    ulong a = usqrt(A);
    if (a * a == A) { *sqrtA = a; return 1; }
  }
  return 0;
}
long uissquareall ( ulong A , ulong * sqrtA ) { if ( ! A ) { * sqrtA = 0 ; return 1 ; } if ( carremod ( A ) ) { ulong a = usqrt ( A ) ; if ( a * a == A ) { * sqrtA = a ; return 1 ; } } return 0 ; }
emulate Z_issquareall on single-word integers
emulate Z_issquareall on single - word integers