CPSC110 Pset6 solution

;​; DO NOT PUT ANYTHING PERSONALLY IDENTIFYING BEYOND YOUR CWL IN THIS​
​FILE.​
​;; YOUR CWLs WILL BE SUFFICIENT TO IDENTIFY YOU.​
​;;​
​(require spd/tags)​

​(@assignment psets/pset-06); Do not edit or remove this tag​


​(@problem 1)​

(​ @htdd Course ListOfCourse)​
​(define-struct course (number credits dependents))​
​;; Course is (make-course Natural Natural ListOfCourse)​
​;; interp. a course with a course number,​
​;; the number of credits the course is worth, and a​
​;; list of courses that have this course as a pre-requisite​

;​; ListOfCourse is one of:​
​;; - empty​
​;; - (cons Course ListOfCourse)​
​;; interp. a list of courses​

(​ define LOC0 empty)​
​(define C322 (make-course 322 3 LOC0))​
​(define C320 (make-course 320 3 LOC0))​
​(define C319 (make-course 319 4 LOC0))​
​(define C317 (make-course 317 3 LOC0))​
​(define C314 (make-course 314 3 LOC0))​
​(define C313 (make-course 313 3 LOC0))​
​(define C312 (make-course 312 3 LOC0))​
​(define C311 (make-course 311 3 LOC0))​
​(define LOC1 (list C319))​
​(define C310 (make-course 310 4 LOC1))​
​(define C304 (make-course 304 3 LOC0))​
​(define C302 (make-course 302 3 LOC0))​
​(define C303 (make-course 303 3 LOC0))​
​(define LOC2 (list C304 C313 C314 C317 C320 C322))​
​(define C221 (make-course 221 4 LOC2))​
​(define LOC3 (list C313 C317))​
​(define C213 (make-course 213 4 LOC3))​
​(define LOC4 (list C213 C221 C310 C311 C312))​
​(define C210 (make-course 210 4 LOC4))​
​(define C203 (make-course 203 3 LOC0))​
​(define C189 (make-course 189 1 LOC0))​
​(define LOC5 (list C189 C203 C210 C302 C303))​
​(define C110 (make-course 110 4 LOC5))​
​(define C100 (make-course 100 3 LOC0))​