（XD::List:TableColMaxNums）返回行列式表最大列数

Lispboy

1. ;|
   
2. 返回行列式表最大列数
   
3. 参数： lst ---表  行列式  ((e1 e2 ...en)(e1 e2 ... en))
   
4. 返回值：整数
   
5. |;
   
6. 
   
7. (defun XD::List:TableColMaxNums (lst)
   
8.   (apply
   
9.     'max
   
10.     (mapcar
    
11.       'length
    
12.       lst
    
13.     )
    
14.   )
    
15. )
    

;|<br /> 返回行列式表最大列数<br /> 参数： lst ---表  行列式  ((e1 e2 ...en)(e1 e2 ... en))<br /> 返回值：整数<br /> |;<br /> <br /> (defun XD::List:TableColMaxNums (lst)<br />   (apply<br />     'max<br />     (mapcar<br />       'length<br />       lst<br />     )<br />   )<br /> )<br />