bridge/class-master/depend/pari/src/basemath/arith2.c
/* given an arithmetic function argument, return the underlying integer */
given an arithmetic function argument, return the underlying integer
given an arithmetic function argument return the underlying integer
static GEN
arith_n(GEN A)
{
  switch(typ(A))
  {
    case t_INT: return A;
    case t_VEC: return gel(A,1);
    default: return factorback(A);
  }
}
static GEN arith_n ( GEN A ) { switch ( typ ( A ) ) { case t_INT : return A ; case t_VEC : return gel ( A , 1 ) ; default : return factorback ( A ) ; } }
given an arithmetic function argument, return the underlying integer
given an arithmetic function argument return the underlying integer