; COSC 152
; Fall 2006
; Dennis Brylow
;
; Lecture 7 Demo
; Binary Tree using the define-datatype syntax extension.

(define-datatype tree tree?
                (tree-node
                 (datum number?)
                 (left tree?)
                 (right tree?))
                (tree-null))

(define add-tree
  (lambda (n t)
    (if (tree? t)
        (cases tree t
          (tree-null () (tree-node n t t))
          (tree-node (datum left right)
                     (if (< n datum)
                         (tree-node datum
                                    (add-tree n left)
                                    right)
                         (tree-node datum
                                    left
                                    (add-tree n right))))
          )
        'error-not-tree)
    )
  )

; Add the search-tree function.