Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (leaf? t)
- (and (empty-tree? (cadr t))
- (empty-tree? (caddr t))))
- (define (grow t v)
- (if (leaf? t) (make-tree (car t) (leaf v) (leaf v))
- (make-tree (car t) (grow (cadr t) v) (grow (caddr t) v))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement