Blame

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

 2 665c255d 2023-08-04 jrmu   (let* ((lset1 (tree->list-1 set1))

 3 665c255d 2023-08-04 jrmu 	 (lset2 (tree->list-1 set2))

 4 665c255d 2023-08-04 jrmu 	 (lunion (union-set lset1 lset2))

 5 665c255d 2023-08-04 jrmu 	 (union (list->tree lunion)))

 6 665c255d 2023-08-04 jrmu     union))

 7 665c255d 2023-08-04 jrmu (defun intersection-set-bintree (set1 set2)

 8 665c255d 2023-08-04 jrmu   (let* ((lset1 (tree->list-1 set1))

 9 665c255d 2023-08-04 jrmu 	 (lset2 (tree->list-1 set2))

10 665c255d 2023-08-04 jrmu 	 (lintersect (intersection-set lset1 lset2))

11 665c255d 2023-08-04 jrmu 	 (intersect (list->tree lintersect)))

12 665c255d 2023-08-04 jrmu     intersect))

13 665c255d 2023-08-04 jrmu