src/rational/elem/cl_RA_from_I_posI_div.cc

   1 // I_posI_div_RA().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_RA.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cln/integer.h"
  13 #include "cl_I.h"
  14
  15 namespace cln {
  16
  17 const cl_RA I_posI_div_RA (const cl_I& a, const cl_I& b)
  18 {
  19 // Methode:
  20 // d:=ggT(a,b).
  21 // Falls d=1: I_I_to_RA anwenden,
  22 // sonst: I_I_to_RA auf a/d und b/d anwenden.
  23         var cl_I d = gcd(a,b);
  24         if (eq(d,1))
  25                 return I_I_to_RA(a,b);
  26         else
  27                 return I_I_to_RA(exquo(a,d),exquopos(b,d));
  28 }
  29
  30 }  // namespace cln