13 #include "cln/rational.h"
14 #include "cln/float.h"
18 cl_signean compare (const cl_R& x, const cl_R& y)
21 // Beide rational oder beide Floats -> klar.
22 // Eine rational, eine Float ->
23 // Die rationale Zahl zum Float machen, vergleichen.
24 // Verschieden -> Das war's.
25 // Gleich -> Das Float mit RATIONAL rational machen, nochmals vergleichen.
28 , // beides rationale Zahlen
30 , // x rational, y Float -> x in Float umwandeln
31 var cl_signean result = compare(cl_float(x,y),y);
32 if (result != signean_null)
34 return compare(x,rational(y));
37 , // x Float, y rational -> y in Float umwandeln
38 var cl_signean result = compare(x,cl_float(y,x));
39 if (result != signean_null)
41 return compare(rational(x),y);