🚀 go-pugleaf

Mam prośbę. Oto program w języku scheme budujący drzewo binarne z 
uporzadkowanymi elementami tzn po lewej stronie(lewe poddrzewo) sa liczby 
mniejsze od korzenia po prawej wieksze.



(define (build-tree l)

   (build-tree1 l '()))

(define (build-tree1 l t)
   (if(null? l)
     t
     (build-tree1 (cdr l) (insert-tree(car l) t))))

(define(insert-tree d t)
   (if(null? t)
    (build-node d '() '())
    (if (< d (node t))
       (build-node(node t) (insert-tree d (l-tree t)) (r-tree t))
       (if (> d(node t))
          (build-node(node t) (l-tree t)(insert-tree d (r-tree t)))
          (build-node(node t) (insert-tree d (l-tree t))(r-tree t ))))))
(define (build-node d l1 l2)
      (list d l1 l2))

czy ktoś może mi pomóc albo dać jakąś wskazówkę jak przerobić taki program 
by sprawdzał on czy już istniejące drzewo binarne ma w węzłach liczby 
całkowite i czy jest uporządkowany (po lewej mniejsze itd)
 z góry dziękuję.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/