> 
> (tree? t)
#t
> (root-tree (right-tree t))
3
> (depth-tree t)
3
> (depth-tree (left-tree t))
1
> (depth-tree (right-tree t))
2
> (member 2 '(1 2 3 4 5))
(2 3 4 5)
> (member-tree 1 t)
(1 (2 () ()) (3 (4 () ()) (5 () ())))
> (member-tree 2 t)
(2 () ())
> (member-tree 3 t)
(3 (4 () ()) (5 () ()))
> (member-tree 4 t)
(4 () ())
> (map (lambda (x) (member-tree x t)) '(1 2 3 4 5 6))
((1 (2 () ()) (3 (4 () ()) (5 () ()))) (2 () ()) (3 (4 () ()) (5 () ())) (4 () ()) (5 () ()) #f)
> (map (lambda (x) (member-tree x t)) '(1 2 3 4 5 6))
((1 (2 () ()) (3 (4 () ()) (5 () ()))) (2 () ()) (3 (4 () ()) (5 () ())) (4 () ()) (5 () ()) #f)
> (map (lambda (x) (member-tree x t)) '(1 2 3 4 5 6))
[image] [image] member-tree: undefined;
 cannot reference an identifier before its definition
> (map (lambda (x) (memv-tree x t)) '(1 2 3 4 5 6))
[image] [image] member-tree: undefined;
 cannot reference an identifier before its definition
> (map (lambda (x) (memv-tree x t)) '(1 2 3 4 5 6))
((1 (2 () ()) (3 (4 () ()) (5 () ()))) (2 () ()) (3 (4 () ()) (5 () ())) (4 () ()) (5 () ()) #f)
> (map (lambda (x) (path-tree x t)) '(1 2 3 4 5 6))
((1) (1 2) (1 3) (1 3 4) (1 3 5) #f)
> (map (lambda (x) (path-tree x t)) '(1 2 3 4 5 6))
((1) (2) (3) (4) (5) #f)
> (map (lambda (x) (path-tree x t)) '(1 2 3 4 5 6))
((1) (1 2) (1 2 . #f) (1 2 . #f) (1 2 . #f) (1 2 . #f))
> (and 3 #f)
#f
> (and 3 '(3 1 2))
(3 1 2)
> (and #f '(3 1 2))
#f
>