1 665c255d 2023-08-04 jrmu (define (element-of-set? x set)
2 665c255d 2023-08-04 jrmu   (cond ((null? set) false)
3 665c255d 2023-08-04 jrmu 	((= x (car set)) true)
4 665c255d 2023-08-04 jrmu 	((< x (car set)) false)
5 665c255d 2023-08-04 jrmu 	(else (element-of-set? x (cdr set)))))