(load "ps6.ss")				; code and data
(load "ps6-table.ss")			; table implementation

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Problem 1
;; manipulating ordered lists

;
; here is the lookup routine.
;

(define (lookup-ordered name file)
  (let ((s-name (name-string name)))    ;calculate string of name only once
    (define (lookup file)
      (if (empty? file) 
          #f
          (let ((current-name (person-at-curr-folder file)))
            (cond
              ((eq? current-name name) (curr-folder file))
              ((string<? s-name (name-string current-name)) #f)
              (else (lookup (rest file)))))))
    (lookup file)))



;;
;; Tests for Problem 1
;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Problem 2