1 ;; The first three lines of this file were inserted by DrScheme. They record metadata
2 ;; about the language level of this file in a form that our tools can easily process.
3 #reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname |28.1|) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "gui.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "gui.ss" "teachpack" "htdp")))))
4 (define Graph 
5   '((A (B E))
6     (B (E F))
7     (C (D))
8     (D ())
9     (E (C F))
10     (F (D G))
11     (G ())))
12 
13 (define Graph2
14   (list (list 'A (list 'B 'E))
15         (list 'B (list 'E 'F))
16         (list 'C (list 'D))
17         (list 'D empty)
18         (list 'E (list 'C 'F))
19         (list 'F (list 'D 'G))
20         (list 'G empty)))