bridge/class-master/depend/pari/src/basemath/polarit3.c
/* irreducible (unitary) polynomial of degree n over Fp */
irreducible (unitary) polynomial of degree n over Fp
irreducible ( unitary ) polynomial of degree n over Fp
GEN
ffinit_rand(GEN p,long n)
{
  for(;;) {
    pari_sp av = avma;
    GEN pol = ZX_add(pol_xn(n, 0), random_FpX(n-1,0, p));
    if (FpX_is_irred(pol, p)) return pol;
    avma = av;
  }
}
GEN ffinit_rand ( GEN p , long n ) { for ( ; ; ) { pari_sp av = avma ; GEN pol = ZX_add ( pol_xn ( n , 0 ) , random_FpX ( n - 1 , 0 , p ) ) ; if ( FpX_is_irred ( pol , p ) ) return pol ; avma = av ; } }
irreducible (unitary) polynomial of degree n over Fp
irreducible ( unitary ) polynomial of degree n over Fp