(* 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)))

This document was generated using caml2html