Listes vers matrice

let vers_matrice adj =
  let n = Array.length adj in
  let m = Array.make_matrix n n false in
  for i = 0 to n - 1 do
    List.iter (fun j -> m.(i).(j) <- true) adj.(i)
  done;
  m

On parcourt chaque liste de voisins et on coche la case correspondante. Coût $\Theta (n+|A|)$ pour lire les listes, plus $\Theta (n^2)$ pour allouer la matrice.