[求助]：Lisp怎样实现类似链表和二叉树这样的数据结构

sccat

Lisp怎样实现类似链表和二叉树这样的数据结构

请高手多多指教。

zxq0220

链表结构：
如表头变量=A1
A1=(X B1)
B1=(Y C1)
......
同理可得二叉树

sccat

A1=(X B1)
B1=(Y C1)
这样就可以赋值了？

MingSoft

lisp语法本身就是处理链表，已经实现了链表的很多操作

sccat

我想知道能不能在

表 '(a b c e) 中 插入一个 d 变成 '(a b c d e)

求一种在表的某个位置插入元素或表的通用做法

aeo

最初由 sccat 发布
[B]我想知道能不能在

表 '(a b c e) 中 插入一个 d 变成 '(a b c d e)

求一种在表的某个位置插入元素或表的通用做法 [/B]

lisp很笨的
你不要想象c++一样，可以来去自如
比如要改变表中的元素，只能是重建一个(除了带索引的)
lst:'(a b c d)-->'(a e c d):
(append(list(car lst) e) (cddr lst))
也可以:
(cons(car lst) (cons e(cddr lst)))
还有其他办法

当然只是速度慢，基本想要的都能做到.

你要的加入一个元素，其实我上面方法变异一下就成.
(setq j -1)
(setq lst(mapcar '(lambda(x)(if(= 3(setq j(1+ j)))(list  e x)(list x)))lst))
(apply 'append lst)

好写个通用的:

2. 
   
3. (defun list-add-n(lst n new / j)
   
4.   (setq j -1)
   
5.   (setq lst(mapcar '(lambda(x)(if(= n(setq j(1+ j)))(list new x)(list x)))lst))
   
6.   (apply 'append lst)
   
7. )
   
8. ;;;exa:
   
9. ;;;命令: (list-add-n '(1 2 3 4) 3 5)
   
10. ;;;(1 2 3 5 4)
    
11. 
    

<br /> (defun list-add-n(lst n new / j)<br />   (setq j -1)<br />   (setq lst(mapcar '(lambda(x)(if(= n(setq j(1+ j)))(list new x)(list x)))lst))<br />   (apply 'append lst)<br /> )<br /> ;;;exa:<br /> ;;;命令: (list-add-n '(1 2 3 4) 3 5)<br /> ;;;(1 2 3 5 4)<br /> <br />

2. 
   
3. (defun lsit-add-n1(lst n new / j lst1)
   
4. (setq j 0)
   
5. (foreach x lst
   
6.   (if(= j n)(setq lst1(cons new lst1)))
   
7.   (setq lst1(cons x lst1))
   
8.   (setq j(1+ j))
   
9. )
   
10. (reverse lst1)
    
11. )
    

<br /> (defun lsit-add-n1(lst n new / j lst1)<br /> (setq j 0)<br /> (foreach x lst<br />   (if(= j n)(setq lst1(cons new lst1)))<br />   (setq lst1(cons x lst1))<br />   (setq j(1+ j))<br /> )<br /> (reverse lst1)<br /> )<br />

当然方法很多，比如递归，自己考虑吧.