(XD::Table:FillGap)把MXN表格按行补齐CELL

Lispboy

1. ;|
   
2. 把MXN表格按行补齐CELL
   
3. 参数：
   
4.   lst ---- 表
   
5.   val ---- 填补的值
   
6. 返回值：
   
7.   表
   
8. 示例：
   
9. 命令: !a
   
10. ((1 2 3 4) (1 2) (1))
    
11. 
    
12. 命令: (XD::TABLE:FILLGAP a "")
    
13. ((1 2 3 4) (1 2 "" "") (1 "" "" ""))
    
14. 
    
15. 命令: (XD::TABLE:FILLGAP a nil)
    
16. ((1 2 3 4) (1 2 nil nil) (1 nil nil nil))
    
17. 
    
18. |;
    
19. (defun XD::Table:FillGap (lst val / maxl x)
    
20.   (if (XD::Table:IsRowCellHasGap lst)
    
21.     (progn
    
22.       (setq maxL (XD::Table:TotalColumnNums lst))
    
23.       (setq lst (mapcar
    
24.                   '(lambda (x)
    
25.                      (XD::Table:RowFillGap x val maxL)
    
26.                    )
    
27.                   lst
    
28.                 )
    
29.       )
    
30.     )
    
31.   )
    
32.   lst
    
33. )
    
34. 
    

;|<br /> 把MXN表格按行补齐CELL<br /> 参数：<br />   lst ---- 表<br />   val ---- 填补的值<br /> 返回值：<br />   表<br /> 示例：<br /> 命令: !a<br /> ((1 2 3 4) (1 2) (1))<br /> <br /> 命令: (XD::TABLE:FILLGAP a "")<br /> ((1 2 3 4) (1 2 "" "") (1 "" "" ""))<br /> <br /> 命令: (XD::TABLE:FILLGAP a nil)<br /> ((1 2 3 4) (1 2 nil nil) (1 nil nil nil))<br /> <br /> |;<br /> (defun XD::Table:FillGap (lst val / maxl x)<br />   (if (XD::Table:IsRowCellHasGap lst)<br />     (progn<br />       (setq maxL (XD::Table:TotalColumnNums lst))<br />       (setq lst (mapcar<br />                   '(lambda (x)<br />                      (XD::Table:RowFillGap x val maxL)<br />                    )<br />                   lst<br />                 )<br />       )<br />     )<br />   )<br />   lst<br /> )<br /> <br />

eachy

对lisp组合函数，个人意见如果有更高效方法就不追求什么代码简洁，减少冗余

守仁格竹GM

学习了                    

守仁格竹GM

ll_j 说得不错。应该是“(a14 nil a34)”，还是“(a14 a34 nil)”  这种情况的解决才是关键

XDSoft

守仁格竹GM 发表于 2013-11-16 08:20
ll_j 说得不错。应该是“(a14 nil a34)”，还是“(a14 a34 nil)”  这种情况的解决才是关键

表是写程序时候自己组织的，应该尽量不用这个函数，应该在数据搜集阶段就解决问题，因为那样面向问题，而不是弥补。

既然生成了数据，那空位的就应该是尾部的。而不是中间。