(require "graph-view")

(define g (digraph '(1 2 3 4 5) '((1 2) (1 3) (1 4) (2 5) (1 5) (4 5))))
(define gv (make <graph-view> :graph g))

(define vgs (vertices gv))
(define egs (edges gv))


(define (random-edge-weights g)
	(let ((eg (set-edge->list (edges g))))
		(map (lambda (x) 
			(let ((r(string->number (number->string (random 100)))))
				(set-attribute! 'weight r x))) eg)) #f)

(random-edge-weights g)

(define (show-edge-weights g)
	(let ((eg (set-edge->list (edges g))))
		(map (lambda (x) (find-attribute 'weight x)) eg)))