University of British Columbia

• CPSC 110

• (@problem 1) (@htdd Venue) (define-struct vnu (nm los)) ;; Venue is (make-vnu String (listof Streetway)) ;; interp. a venue name and streetways leading from that venue (@htdd Streetway) (define-struct sw (nm dst)) ;; Streetway is (make-sw String String) ;; interp. (make-sw s v) is a streetway s that leads to the destination venue v. (define VENUES (list (make-vnu "West Coast Express" (list (make-sw "Cordova Eastbound" "Shine Night Club"))) (make-vnu "Shine Night Club" (list (make-sw "Richards Southbound" "WOW Tasty Food Delivery") (make-sw "Cordova Eastbound" "Rocket Reprographics") (make-sw "Cordova Westbound" "West Coast Express"))) (make-vnu "Rocket Reprographics" (list (make-sw "Cordova Eastbound" "Anti-Hero 13 Boutique"))) (make-vnu "Anti-Hero 13 Boutique" (list)) (make-vnu "Vancouver Lookout" (list (make-sw "Seymour Northbound" "West Coast Express") (make-sw "Hastings Eastbound" "WOW Tasty Food Delivery"))) (make-vnu "WOW Tasty Food Delivery" (list (make-sw "Hastings Eastbound" "Vancouver Film School") (make-sw "Hastings Westbound" "Vancouver Lookout") (make-sw "Richards Southbound" "MacL