As you can see the contract is missing -- I'm looking for it, so when I find it, I'll post it.
(define (adjoin-set x set) (cond ((empty? set) (list x)) ((= x (head set)) set) ((< x (head set)) (cons x set)) (else (cons (head set) (adjoin-set x (tail set)))))) (define (element-of-set? x set) (cond ((empty? set) #f) ((= x (head set)) #t) ((< x (head set)) #f) (else (element-of-set? x (tail set)))))Write a linear time implementation of intersection-set given this new ordered representation of sets (i.e., for two sets of length m and n your procedure should run in time O(m+n).)