给LISP表构建二叉树表

Highflybird

1. (defun XD::DataSTRU:BTree (lst / L R)
   
2.   (cond
   
3.     ((cddr lst)                               ; the length of list > 2
   
4.       (setq R lst)
   
5.       (repeat (/ (length lst) 2)       ; Split it
   
6.         (setq L (cons (car R) L))      ; Left part of list
   
7.         (setq R (cdr R))               ; Right part of list
   
8.       )
   
9.       (cons (car R)                       ; middle number as the first.
   
10.             (cons (XD::DataSTRU:BTree (reverse L))  ; recurse Left part
    
11.                   (XD::DataSTRU:BTree (cdr R))      ; recurse Right part
    
12.             )
    
13.       )
    
14.     )
    
15.     ((cdr lst)                               ; just two elements
    
16.       (cons (cadr lst) (car lst))      ; the right node is empty.
    
17.     )
    
18.     (lst (car lst)                       ; if just one,the node is an element.
    
19.     )
    
20.   )
    
21. )
    
22. 
    

(defun XD::DataSTRU:BTree (lst / L R)<br />   (cond<br />     ((cddr lst)                               ; the length of list > 2<br />       (setq R lst)<br />       (repeat (/ (length lst) 2)       ; Split it<br />         (setq L (cons (car R) L))      ; Left part of list<br />         (setq R (cdr R))               ; Right part of list<br />       )<br />       (cons (car R)                       ; middle number as the first.<br />             (cons (XD::DataSTRU:BTree (reverse L))  ; recurse Left part<br />                   (XD::DataSTRU:BTree (cdr R))      ; recurse Right part<br />             )<br />       )<br />     )<br />     ((cdr lst)                               ; just two elements<br />       (cons (cadr lst) (car lst))      ; the right node is empty.<br />     )<br />     (lst (car lst)                       ; if just one,the node is an element.<br />     )<br />   )<br /> )<br /> <br />

1. 命令: (setq a '(1 2 3 4 5 6 7 8 9 10 11 12))
   
2. (1 2 3 4 5 6 7 8 9 10 11 12)
   
3. 命令: (XD::DataSTRU:BTree a)
   
4. (7 (4 (2 1 . 3) 6 . 5) 10 (9 . 8) 12 . 11)
   
5. 
   

命令: (setq a '(1 2 3 4 5 6 7 8 9 10 11 12))<br /> (1 2 3 4 5 6 7 8 9 10 11 12)<br /> 命令: (XD::DataSTRU:BTree a)<br /> (7 (4 (2 1 . 3) 6 . 5) 10 (9 . 8) 12 . 11)<br /> <br />

dbqtju

下载留名字

896052897

可行。学习了学习了

fy1005

很高深，可以加快运算速度