Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (define (union-set set1 set2)

2 665c255d 2023-08-04 jrmu   (cond ((null? set1) set2)

3 665c255d 2023-08-04 jrmu 	((null? set2) set1)

4 665c255d 2023-08-04 jrmu 	((element-of-set? (car set1) set2) (union-set (cdr set1) set2))

5 665c255d 2023-08-04 jrmu 	(else (cons (car set1) (union-set (cdr set1) set2)))))