Initial revision

[cln.git] / tests / timesquare.cc

diff --git a/tests/timesquare.cc b/tests/timesquare.cc
new file mode 100644 (file)
index 0000000..5e47164
--- /dev/null
+++ b/tests/timesquare.cc
@@ -0,0 +1,34 @@
+#include <cl_number.h>
+#include <cl_io.h>
+#include <cl_integer.h>
+#include <cl_random.h>
+#include <stdlib.h>
+#include <string.h>
+#include <cl_timing.h>
+
+int main (int argc, char * argv[])
+{
+       int repetitions = 1;
+       if ((argc >= 3) && !strcmp(argv[1],"-r")) {
+               repetitions = atoi(argv[2]);
+               argc -= 2; argv += 2;
+       }
+       if (argc < 2)
+               exit(1);
+       cl_I m1 = cl_I(argv[1]);
+       cl_I M1 = (cl_I)1 << (intDsize*m1);
+       cl_I m2 = (argc>2 ? cl_I(argv[2]) : m1);
+       cl_I M2 = (cl_I)1 << (intDsize*m2);
+       cl_I a = random_I(M1);
+       cl_I b = random_I(M2);
+       fprint(cl_stderr, "Squaring:       ");
+       { CL_TIMING;
+         for (int rep = repetitions; rep > 0; rep--)
+           { cl_I p = a * a; }
+       }
+       fprint(cl_stderr, "Multiplication: ");
+       { CL_TIMING;
+         for (int rep = repetitions; rep > 0; rep--)
+           { cl_I p = a * b; }
+       }
+}