Построение двоичного дерева в lisp

Question

Я пытаюсь построить двоичное дерево lisp. Функция должна сделать этот

(buildBST ‘(6 9 2 1 7)) -> (6 (2 (1)()) (9 (7)())) 

код, который мы имеем до сих пор будет постоянно возвращаться ошибка

> 7 nil arguments should be of type real 

Вот наш код

(defun buildBst (lis) 
    (cond 
     ((null lis) 0) 
     ((atom lis) lis) 
     (t (if (>(car lis)(car(cdr lis))) 
       (buildBst(cdr lis)) 
       (buildBst(cdr lis)))))) 

Answer 1

Наилучшим подходом было бы сделать функцию вставки :

(defun tree-insert-element (tree element) 
    (cond ((tree-null-p tree) 
     (make-tree element nil nil)) 
     ((< (tree-value tree) element) 
     (make-tree (tree-value tree) 
        (tree-left tree) 
        (tree-insert-element (tree-right tree) element))) 
     (t 
     (make-tree (tree-value tree) 
        (tree-insert-element (tree-left tree) element) 
        (tree-right tree))))) 

Таким образом, если вы хотите, чтобы вставить целую кучу вы можете сделать это:

(defun tree-insert-list (tree list) 
    (reduce #'tree-insert-element list :initial-value tree)) 

Конечно, вам нужно определить функции функция вставки использует, как я на самом деле не волнует, как вы выбираете для моделирования дерево. Из взгляда ожидаемого результата я думаю, make-tree может просто обернуть list*, но это не единственный способ сделать дерево!