;; quelques graphes prêts à l'emploi ;; on peut voir leur aspect dans ;; graf-data.fig ;; *dummy*: mon premier graphe en Lisp. J'en suis très fier. (setf *dummy* (make-graph 5 '((0 1 2 3 4) (0 2)))) ;; lire: le graphe *dummy* contient 5 sommets (numérotés de 0 à 4) ;; et *dummy* est entièrement défini par les chemins 0-1-2-3-4 ;; et 0-2 (setf *toupiti* (make-graph 3 '((0 1)))) ;; le sommet 2 est "tout seul" ;; les deux graphes d'exemple *connexe* et *pasconnexe* qui ont ;; une partie commune (représentée ici par la liste de chemins *base*) (setf *base* '((0 1 3 6 8 4 2 0) (0 8) (3 5 7 9))) (setf *connexe* (make-graph 10 *base*)) (setf *pasconnexe* (make-graph 15 (append *base* '((11 12 13) (12 14))))) ;; le sommet 10 est "tout seul" (setf *gros* (make-random-graph 1000 700)) ;; graphe aléatoire avec 1000 sommets et 700 arêtes