Digrafo de 8 nodos:

Grafo en JMEScriptGUI con visor de grafos v0.1:

Directamente desde matriz:

gr_adylst([[0,1,0,0,0,0,0,0],[0,0,1,0,1,1,0,0],[0,0,0,1,0,0,1,0],[0,0,1,0,0,0,0,1],[1,0,0,0,0,1,0,0],[0,0,0,0,0,0,1,0],[0,0,0,0,0,1,0,0],[0,0,0,1,0,0,1,0]])

VectorEvaluado: [[1],[2,4,5],[3,6],[2,7],[0,5],[6],[5],[3,6]]

Desde grafo y enumerando la lista:

enumerar(gr_adylst(gr_nuevo([[0,1,0,0,0,0,0,0],[0,0,1,0,1,1,0,0],[0,0,0,1,0,0,1,0],[0,0,1,0,0,0,0,1],[1,0,0,0,0,1,0,0],[0,0,0,0,0,0,1,0],[0,0,0,0,0,1,0,0],[0,0,0,1,0,0,1,0]],['a','b','c','d','e','f','g','h'],verdadero)><'ady'),['a','b','c','d','e','f','g','h'])

VectorEvaluado: | 'a' [1] | | 'b' [2,4,5] | | 'c' [3,6] | | 'd' [2,7] | | 'e' [0,5] | | 'f' [6] | | 'g' [5] | | 'h' [3,6] |