let egal_couple (x1, y1) (x2, y2) =
  x1 = x2 && y1 = y2 || x1 = y2 && x2 = y1
;;

let temps f x =
  let t = Sys.time() in
  let fx = f x in
  Printf.printf "Temps d'execution: %fs\n" (Sys.time() -. t);
  fx
;;

let test n =
  (* comparaison pour un nuage de taille n *)
  let tab = rd_nuage n in
  clear_graph () ;
  trace_nuage tab ;
  let p, q = temps plus_proche_naif tab in
  coloration p q ;
  egal_couple (p,q) (temps plus_proche_efficace tab) (* verification ! *) 
;;


test 1000 ;;