forked from RaphaLevy/main
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ex-2.63.rkt
73 lines (55 loc) · 2.18 KB
/
ex-2.63.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#lang racket
(define (entry tree) (car tree))
(define (left-branch tree) (cadr tree))
(define (right-branch tree) (caddr tree))
(define (make-tree entry left right)
(list entry left right))
(define (tree->list-1 tree)
(if (null? tree)
'()
(append (tree->list-1 (left-branch tree))
(cons (entry tree)
(tree->list-1
(right-branch tree))))))
(define (tree->list-2 tree)
(define (copy-to-list tree result-list)
(if (null? tree)
result-list
(copy-to-list (left-branch tree)
(cons (entry tree)
(copy-to-list
(right-branch tree)
result-list)))))
(copy-to-list tree '()))
(define tree1 (make-tree 4
(make-tree 2
(make-tree 1 (make-tree 0 null null) empty)
(make-tree 3 null null))
(make-tree 7
(make-tree 5 null null)
(make-tree 9 null null))))
(define tree2 (make-tree 7
(make-tree 3
(make-tree 1 null null)
(make-tree 5 null null))
(make-tree 9
null
(make-tree 11 null null))))
(define tree3 (make-tree 3
(make-tree 1 null null)
(make-tree 7
(make-tree 5 null null)
(make-tree 9
null
(make-tree 11 null null)))))
(define tree4 (make-tree 5
(make-tree 3
(make-tree 1 null null)
null)
(make-tree 9
(make-tree 7 null null)
(make-tree 11 null null))))
(define tree5 '(7 (3 (1 () ()) (5 () ())) (9 () (11 () ()))))
(define (test)
(map (lambda (v) (list v (tree->list-1 (eval v)) (tree->list-2 (eval v))))
'(tree4 tree3 tree2 tree5)))