// expt().
// General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
// Specification.
#include "cln/real.h"
// Implementation.
-#include "cl_R.h"
+#include "real/cl_R.h"
#include "cln/rational.h"
#include "cln/integer.h"
namespace cln {
// Methode:
-// Für y>0:
+// Für y>0:
// a:=x, b:=y.
// Solange b gerade, setze a:=a*a, b:=b/2. [a^b bleibt invariant, = x^y.]
// c:=a.
// Solange b:=floor(b/2) >0 ist,
// setze a:=a*a, und falls b ungerade, setze c:=a*c.
// Ergebnis c.
-// Für y=0: Ergebnis 1.
-// Für y<0: (/ (expt x (- y))).
+// Für y=0: Ergebnis 1.
+// Für y<0: (/ (expt x (- y))).
// Assume y>0.
inline const cl_R expt_pos (const cl_R& x, uintL y)