4 #include "base/cl_sysdep.h"
7 #include "cln/integer.h"
12 #include "integer/cl_I.h"
16 const cl_I rem (const cl_I& x, const cl_I& y)
20 // (DIVIDE (abs x) (abs y)) -> q,r
21 // Falls x<0, setze r:=-r.
23 var cl_I r = cl_divide(abs(x),abs(y)).remainder;
24 if (minusp(x)) { return -r; } else { return r; }