(* Transposition d'un graphe donné sous la forme d'une matrice d'adjacence *) let reverse g = let n = Array.length g in Array.init n (fun i -> Array.init n (fun j -> g.(j).(i)))