previous | index | next

Leaves

A tree with empty subtrees is also called a leaf. Thus, we can define: 
     (define make-leaf
       (lambda (root)
         (make-nonempty-tree root
                             (make-empty-tree)
                             (make-empty-tree))))
To make the leaves of our example tree: 
     (make-leaf 1) ⇒ (1 () ())
     (make-leaf 3) ⇒ (3 () ())
     (make-leaf 5) ⇒ (5 () ())
     (make-leaf 7) ⇒ (7 () ())
previous | index | next