bridge/class-master/depend/pari/src/modules/algebras.c
/* v vector of prid. Return underlying list of rational primes */
v vector of prid. Return underlying list of rational primes
v vector of prid . Return underlying list of rational primes
static GEN
pr_primes(GEN v)
{
  long i, l = lg(v);
  GEN w = cgetg(l,t_VEC);
  for (i=1; i<l; i++) gel(w,i) = pr_get_p(gel(v,i));
  return ZV_sort_uniq(w);
}
static GEN pr_primes ( GEN v ) { long i , l = lg ( v ) ; GEN w = cgetg ( l , t_VEC ) ; for ( i = 1 ; i < l ; i ++ ) gel ( w , i ) = pr_get_p ( gel ( v , i ) ) ; return ZV_sort_uniq ( w ) ; }
v vector of prid.
v vector of prid .