Graphe pondéré

let pondere_vide n = Array.make n []

let ajoute_arc adj u v poids = adj.(u) <- (v, poids) :: adj.(u)

let ajoute_arete adj u v poids =        (* non orienté *)
  adj.(u) <- (v, poids) :: adj.(u);
  adj.(v) <- (u, poids) :: adj.(v)

Chaque voisin est un couple (sommet, poids). C'est l'extension naturelle des listes d'adjacence du chapitre 14.