bridge/class-master/depend/pari/src/basemath/base2.c
/* return denominator, a power of p */
return denominator, a power of p
return denominator a power of p
static GEN
QpX_denom(GEN x)
{
  long i, l = lg(x);
  GEN maxd = gen_1;
  for (i=2; i<l; i++)
  {
    GEN d = gel(x,i);
    if (typ(d) == t_FRAC && cmpii(gel(d,2), maxd) > 0) maxd = gel(d,2);
  }
  return maxd;
}
static GEN QpX_denom ( GEN x ) { long i , l = lg ( x ) ; GEN maxd = gen_1 ; for ( i = 2 ; i < l ; i ++ ) { GEN d = gel ( x , i ) ; if ( typ ( d ) == t_FRAC && cmpii ( gel ( d , 2 ) , maxd ) > 0 ) maxd = gel ( d , 2 ) ; } return maxd ; }
return denominator, a power of p
return denominator a power of p