1 665c255d 2023-08-04 jrmu (define (tree->list-1 tree)
 2 665c255d 2023-08-04 jrmu   (if (null? tree)
 3 665c255d 2023-08-04 jrmu       '()
 4 665c255d 2023-08-04 jrmu       (append (tree->list-1 (left-branch tree))
 5 665c255d 2023-08-04 jrmu 	      (cons (entry tree)
 6 665c255d 2023-08-04 jrmu 		    (tree->list-1 (right-branch tree))))))
 7 665c255d 2023-08-04 jrmu (define (tree->list-2 tree)
 8 665c255d 2023-08-04 jrmu   (define (copy-to-list tree result-list)
 9 665c255d 2023-08-04 jrmu     (if (null? tree)
10 665c255d 2023-08-04 jrmu 	result-list
11 665c255d 2023-08-04 jrmu 	(copy-to-list (left-branch tree)
12 665c255d 2023-08-04 jrmu 		      (cons (entry tree)
13 665c255d 2023-08-04 jrmu 			    (copy-to-list (right-branch tree)
14 665c255d 2023-08-04 jrmu 					  result-list)))))
15 665c255d 2023-08-04 jrmu   (copy-to-list tree '()))