fork(3) download
  1. GF(b,n)=
  2. {
  3. my(s=Mod(2*polchebyshev(b/2,1,polchebyshev(b/2,1,4)),b^2^n+1));
  4. for(i=1,2^n-2, s=2*polchebyshev(b,1,s/2));
  5. s==0
  6. }
Success #stdin #stdout #stderr 0s 9328KB
stdin
GF(28,2)
stdout
1
stderr
  ***   Warning: can't expand ~.
  ***   Warning: can't expand ~.