Ticket #236: f4

File f4, 91 bytes (added by hannes, 13 years ago)
Line 
1ring r = (0,a),(x,y),dp;
2minpoly = a^2 +1;
3poly f = (x-a)*(y-a);
4sqrfree(f);
5factorize(f);