LISP语言的list如何实现插入 *** 作？？？

(defun c:chengxu (/ yuanshi aaa bbb test jieguo)

(setq yuanshi '(1 2 3 4 5))原始表

(setq aaa yuanshi)复制原始表,循环处理会改变,所以复制数据

(setq bbb yuanshi)复制返指原始表,循环处理会改变碰世世,所以复制数据

前段处理

(repeat 3 循环

(setq test (cons (car aaa) test))制作一个储存逆向数据的表

(setq aaa (cdr aaa))

)

(setq test (reverse test))逆转表

后端处理

(repeat 3 循环

(setq bbb (cdr bbb))

)

合并

(setq jieguo (append test '(9) bbb))

输出结果

(princ jieguo)

(princ)

)

核心就是append合笑肢并几个表而已

mapcar是将几个列表其中辩燃的元素配合函数求滚灶漏出新的列表

比如已有list1和list2

那么 （setq list3 （mapcar + list1 list2））

其中list3就是list1+list2以后得到的列大烂表

---