（XD::List:AddColumn）表格式LIST 增加一列

Lispboy

1. ;|
   
2. 表格式LIST 增加一列
   
3. 参数：lst --- 表
   
4.       pos --- 指定列号
   
5.       colst-- 原子 or 同行长度的子表
   
6. 说明：参数如果给原子，每行指定列都加入相同的元素
   
7.       参数如果是子表，对应行指定列加入子表对应的值
   
8. 例子：
   
9. 命令: (setq a '(("a" "b" "c")("aa" "bb" "cc")("aaa" "bbb" "ccc")))
   
10. (("a" "b" "c") ("aa" "bb" "cc") ("aaa" "bbb" "ccc"))
    
11. 命令: (xd::list:addcolumn a 1 "zzz")
    
12. (("a" "zzz" "b" "c") ("aa" "zzz" "bb" "cc") ("aaa" "zzz" "bbb" "ccc"))
    
13. 
    
14. 
    
15. 命令: !a
    
16. (("a" "b" "c") ("aa" "bb" "cc") ("aaa" "bbb" "ccc"))
    
17. 
    
18. 命令: (xd::list:addcolumn a 1 '("zzz" "ggg" "mmm"))
    
19. (("a" "zzz" "b" "c") ("aa" "ggg" "bb" "cc") ("aaa" "mmm" "bbb" "ccc"))
    
20. 
    
21. |;
    
22. (defun XD::List:AddColumn (lst pos colst)
    
23.   (cond
    
24.     ((atom colst)
    
25.       (mapcar
    
26.         '(lambda (x)
    
27.            (XD::List:Insert x pos colst)
    
28.          )
    
29.         lst
    
30.       )
    
31.     )
    
32.     ((and
    
33.        (= (type colst) 'LIST)
    
34.        (= (length lst) (length colst))
    
35.      )
    
36.       (mapcar
    
37.         'cons
    
38.         colst
    
39.         lst
    
40.       )
    
41.       (setq i -1)
    
42.       (mapcar
    
43.         '(lambda (x)
    
44.            (XD::List:Insert x pos (nth (setq i (1+ i))
    
45.                                        colst
    
46.                                   )
    
47.            )
    
48.          )
    
49.         lst
    
50.       )
    
51.     )
    
52.   )
    
53. )
    
54. 
    

;|<br /> 表格式LIST 增加一列<br /> 参数：lst --- 表<br />       pos --- 指定列号<br />       colst-- 原子 or 同行长度的子表<br /> 说明：参数如果给原子，每行指定列都加入相同的元素<br />       参数如果是子表，对应行指定列加入子表对应的值<br /> 例子：<br /> 命令: (setq a '(("a" "b" "c")("aa" "bb" "cc")("aaa" "bbb" "ccc")))<br /> (("a" "b" "c") ("aa" "bb" "cc") ("aaa" "bbb" "ccc"))<br /> 命令: (xd::list:addcolumn a 1 "zzz")<br /> (("a" "zzz" "b" "c") ("aa" "zzz" "bb" "cc") ("aaa" "zzz" "bbb" "ccc"))<br /> <br /> <br /> 命令: !a<br /> (("a" "b" "c") ("aa" "bb" "cc") ("aaa" "bbb" "ccc"))<br /> <br /> 命令: (xd::list:addcolumn a 1 '("zzz" "ggg" "mmm"))<br /> (("a" "zzz" "b" "c") ("aa" "ggg" "bb" "cc") ("aaa" "mmm" "bbb" "ccc"))<br /> <br /> |;<br /> (defun XD::List:AddColumn (lst pos colst)<br />   (cond<br />     ((atom colst)<br />       (mapcar<br />         '(lambda (x)<br />            (XD::List:Insert x pos colst)<br />          )<br />         lst<br />       )<br />     )<br />     ((and<br />        (= (type colst) 'LIST)<br />        (= (length lst) (length colst))<br />      )<br />       (mapcar<br />         'cons<br />         colst<br />         lst<br />       )<br />       (setq i -1)<br />       (mapcar<br />         '(lambda (x)<br />            (XD::List:Insert x pos (nth (setq i (1+ i))<br />                                        colst<br />                                   )<br />            )<br />          )<br />         lst<br />       )<br />     )<br />   )<br /> )<br /> <br />