mesure timing big_int

stats_big_int.ml

@@ -4,5 +4,29 @@
 open Big_int;;
 open Polynome;;
 open Simplepolynome;;
+open Printf;;
 open Sys;;
 open Gc;;
+
+module P = Polynome(SimpleCoeff)(SimpleDegree);;
+
+let n = int_of_string Sys.argv.(1);;
+
+let p1 = P.generate n;;
+let p2 = P.generate n;;
+
+let m1 = (Gc.quick_stat()).Gc.major_words;;
+
+let t1 = Sys.time();;
+P.naive_mul p1 p2;;
+let t2 = Sys.time();;
+
+let m2 = (Gc.quick_stat()).Gc.major_words;;
+
+let t3 = Sys.time();;
+P.karatsuba_mul p1 p2;;
+let t4 = Sys.time();;
+
+let m3 = (Gc.quick_stat()).Gc.major_words;;
+
+printf "%i %f %f %f %f \n" n (t2 -. t1) (m2 -. m1) (t4 -. t3) (m3 -. m2);;