Bonsoir
J'ai besoin de votre aide svp.
Pouvez-vous me dire pourquoi ce programme ne fonctionne pas et comment le modifier pour qu'il fonctionne.
Un graphe orienté est décrit par sa matrice d'adjacence dont le type est:
type==(int vect) vect;;
Je cherche à extraire les voisins, voilà le programme que j'ai écrit:
let voisin g i=
let l=[] in
for k=0 to vect_length(g.(1))-1 do
if g.(i)(k)=1 then k::l
done;
ev l;;
Merci à vous
-----