89{
90 fq_nmod_t f;
91
93
94#if 0
95 printf("input = ");
96 for (long i=0; i<poly.size(); i++)
97 printf("%ld ", poly[i]);
98 printf("\n");
99#endif
100 for (long i = poly.size() - 1; i >= 0; i--)
101 {
102 long a = poly[i];
103 if (a == 0) continue;
105 nmod_poly_set_coeff_ui(f, i, a);
106 }
107#if 0
108 printf(" result before reduction = ");
110 printf("\n");
111#endif
113#if 0
114 printf(" result = ");
116 printf("\n");
117#endif
119#if 0
120 printf(
" zech result = %lu",
result.value);
121 printf("\n");
122#endif
124}
fq_nmod_ctx_t mBigContext
long characteristic() const
VALGRIND_MAKE_MEM_DEFINED & result(result)