diff options
Diffstat (limited to 'src/cm/cm_any.c')
| -rw-r--r-- | src/cm/cm_any.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/cm/cm_any.c b/src/cm/cm_any.c index fef4cff..e1dab54 100644 --- a/src/cm/cm_any.c +++ b/src/cm/cm_any.c @@ -17,11 +17,16 @@ static void good_qdisc_minimal(cm_any_qdisc_t *qdisc, GEN order) { pari_sp ltop = avma; GEN d = stoi(2); + size_t j = 0; while (true) { + ++j; if (!issquarefree(d)) { d = addis(d, 1); continue; } + if (j % 100 == 0) { + debug_log("D: %Ps", d); + } GEN D = quaddisc(negi(d)); GEN K = Buchall(quadpoly(D), 0, DEFAULTPREC); GEN alphas = bnfisintnorm(K, order); |