7 #include "cln/integer.h"
16 const cl_I lcm (const cl_I& a, const cl_I& b)
19 // a=0 oder b=0 -> Ergebnis 0.
20 // a:=(abs a), b:=(abs b).
22 // Falls g=1, Ergebnis a*b, sonst Ergebnis (a/g)*b.
23 if (eq(a,0)) { return 0; }
24 if (eq(b,0)) { return 0; }
26 {var cl_I abs_a = abs(a);
27 var cl_I abs_b = abs(b);
30 var cl_I g = gcd(a,b);
31 if (!eq(g,1)) { a = exquopos(a,g); } // a durch g (beide >0) dividieren