(XD::List:IsTable)判断一个表是否是表格（NxM)

Lispboy

1. (defun XD::List:IsTable (lst / x y)
   
2.   (if (and
   
3.         (= (type lst) 'LIST)
   
4.         (vl-some '(lambda (x)
   
5.                     (not (atom x))
   
6.                   ) lst
   
7.         )
   
8.         (vl-some '(lambda (x y)
   
9.                     (= (length x) (length y))
   
10.                   ) lst (append
    
11.                           (cdr lst)
    
12.                           (list (car lst))
    
13.                         )
    
14.         )
    
15.       )
    
16.     (list (length lst)(length (car lst)))
    
17.   )
    
18. )
    

(defun XD::List:IsTable (lst / x y)<br />   (if (and<br />         (= (type lst) 'LIST)<br />         (vl-some '(lambda (x)<br />                     (not (atom x))<br />                   ) lst<br />         )<br />         (vl-some '(lambda (x y)<br />                     (= (length x) (length y))<br />                   ) lst (append<br />                           (cdr lst)<br />                           (list (car lst))<br />                         )<br />         )<br />       )<br />     (list (length lst)(length (car lst)))<br />   )<br /> )<br />

dyjwyqz5221

这个函数if里面最后一个判断条件似乎有点问题呀，下面是我的测试程序，在测试过程中发现了问题了

(defun t1(lst)
        (apply '= (mapcar 'length lst))
);;;defun

(defun t2(lst / x y)
        (vl-some
                '(lambda(x y)
                            (= (length x) (length y))
                  );;;lambda
                lst
                (append (cdr lst) (list (car lst)))
        )
);;;defun


第二个函数是你函数里面的一部分。
测试效率函数
(defun c:tt(/ n lst1 lst2 lst)
       (progn
               (setq n (getint "\n输入重复次数：")
                    lst1 '(1 2 3)
                    lst2 '(1 2)
              )
             (repeat n
                    (setq lst (cons lst1 lst))
            )
            (setq lst (cons lst2 lst))
       )
        (repeat 5
                  (xd::quickbench '((t1 lst)(t2 lst)))
        )
         (princ)
)


将progn里面的n输入100后，本来子表数量不相等的lst，用(t2 lst)结果是相等的

命令: (t1 lst)
nil

命令: (t1 lst)
nil
命令: (t2 lst)
T


再测试下效率
命令: TT

输入重复次数：50

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1734       1734      1.98 <fastest>
(T2 LST)                         16384      1719       3438      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1938       1938      1.84 <fastest>
(T2 LST)                         16384      1781       3562      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1907       1907      1.88 <fastest>
(T2 LST)                         16384      1797       3594      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1968       1968      1.87 <fastest>
(T2 LST)                         16384      1844       3688      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1032       1032      1.74 <fastest>
(T2 LST)                         16384      1796       1796      1.00 <slowest>
-------------------------------------------------------------------------------


命令: TT

输入重复次数：400

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      2172       2172      1.31 <fastest>
(T2 LST)                          8192      1421       2842      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                          8192      1312       1312      1.06 <fastest>
(T2 LST)                          8192      1391       1391      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                          8192      1297       1297      1.08 <fastest>
(T2 LST)                          8192      1406       1406      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                          8192      1344       1344      1.03 <fastest>
(T2 LST)                          8192      1391       1391      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                          8192      1312       1312      1.06 <fastest>
(T2 LST)                          8192      1391       1391      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

第二个判断条件也有问题，例如：
(setq lst '(1 (2 3)))
就判断为T
修改为：
(not
                (vl-some
                        '(lambda(x)
                                    (atom x)
                         )
                        lst
                )
        )
就可以了

dyjwyqz5221

做了个第二个条件的函数，效率比较下：
(defun t1(lst)
        (if (apply '= (mapcar 'atom lst))
                (not (atom (car lst)))
        );;;if
);;;defun

(defun t2(lst)
        (not
                (vl-some
                        '(lambda(x)
                                    (atom x)
                         );;;lambda
                        lst
                )
        )
);;;defun
(defun c:tt(/ n lst1 lst)
        (progn
                (setq n (getint "\n输入重复次数：")
                        lst1 '(1 2 3)
                )
                (repeat n
                        (setq lst (cons lst1 lst))
                )
                ;;;(setq lst (cons lst2 lst))
        );;;progn
        (repeat 5
                  (xd::quickbench '((t1 lst)(t2 lst)))
        )
         (princ)
)
命令: TT
输入重复次数：20

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1656       1656      1.85 <fastest>
(T2 LST)                         16384      1532       3064      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1625       1625      1.88 <fastest>
(T2 LST)                         16384      1531       3062      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1640       1640      1.85 <fastest>
(T2 LST)                         16384      1516       3032      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1657       1657      1.85 <fastest>
(T2 LST)                         16384      1531       3062      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1641       1641      1.87 <fastest>
(T2 LST)                         16384      1531       3062      1.00 <slowest>
-------------------------------------------------------------------------------

命令:
命令: TT

输入重复次数：100

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1078       1078      1.70 <fastest>
(T2 LST)                         16384      1829       1829      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1063       1063      1.72 <fastest>
(T2 LST)                         16384      1828       1828      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1078       1078      1.68 <fastest>
(T2 LST)                         16384      1812       1812      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1093       1093      1.66 <fastest>
(T2 LST)                         16384      1813       1813      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1078       1078      1.67 <fastest>
(T2 LST)                         16384      1797       1797      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

第三个条件修改后测试：
(defun t1(lst)
        (apply '= (mapcar 'length lst))
);;;defun

(defun t2(lst / x y)
        (not
                (vl-some
                        '(lambda(x y)
                                    (/= (length x) (length y))
                          );;;lambda
                        lst
                        (append (cdr lst) (list (car lst)))
                )
        )
);;;defun

测试有表长度不相等时，并且在表的初始位置时
(defun c:tt(/ n lst1 lst2 lst)
        (progn
                (setq n (getint "\n输入重复次数：")
                        lst1 '(1 2 3)
                        lst2 '(1 2)
                )
                (repeat n
                        (setq lst (cons lst1 lst))
                )
                (setq lst (cons lst2 lst))
        );;;progn
        (repeat 5
                  (xd::quickbench '((t1 lst)(t2 lst)))
        )
         (princ)
)

命令: TT

输入重复次数：20

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1703       1703      1.87 <fastest>
(T2 LST)                         16384      1594       3188      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1734       1734      1.80 <fastest>
(T2 LST)                         16384      1562       3124      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1703       1703      1.84 <fastest>
(T2 LST)                         16384      1563       3126      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1688       1688      1.87 <fastest>
(T2 LST)                         16384      1578       3156      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1750       1750      2.21 <fastest>
(T2 LST)                         16384      1938       3876      1.00 <slowest>
-------------------------------------------------------------------------------

命令:
命令: TT

输入重复次数：100

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1156       1156      1.73 <fastest>
(T2 LST)                          8192      1000       2000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1594       1594      1.27 <fastest>
(T2 LST)                          8192      1016       2032      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1609       1609      1.24 <fastest>
(T2 LST)                          8192      1000       2000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1625       1625      1.27 <fastest>
(T2 LST)                          8192      1031       2062      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1594       1594      1.25 <fastest>
(T2 LST)                          8192      1000       2000      1.00 <slowest>
-------------------------------------------------------------------------------


测试子表长度都相等时
(defun c:tt(/ n lst1 lst)
        (progn
                (setq n (getint "\n输入重复次数：")
                        lst1 '(1 2 3)
                )
                (repeat n
                        (setq lst (cons lst1 lst))
                )
        );;;progn
        (repeat 5
                  (xd::quickbench '((t1 lst)(t2 lst)))
        )
         (princ)
)

输入重复次数：20

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         32768      1782       1782      2.31 <fastest>
(T2 LST)                          8192      1031       4124      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1141       1141      1.78 <fastest>
(T2 LST)                          8192      1015       2030      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1141       1141      1.81 <fastest>
(T2 LST)                          8192      1031       2062      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1140       1140      1.75 <fastest>
(T2 LST)                          8192      1000       2000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1156       1156      1.76 <fastest>
(T2 LST)                          8192      1016       2032      1.00 <slowest>
-------------------------------------------------------------------------------

命令:
命令: TT

输入重复次数：100

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1141       1141      2.68 <fastest>
(T2 LST)                          8192      1531       3062      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1672       1672      1.83 <fastest>
(T2 LST)                          8192      1531       3062      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1672       1672      1.81 <fastest>
(T2 LST)                          8192      1516       3032      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1625       1625      1.85 <fastest>
(T2 LST)                          8192      1500       3000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T1 LST)                         16384      1672       1672      1.83 <fastest>
(T2 LST)                          8192      1531       3062      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

综合上述效率比较，建议修改为：

[Actionscript3] 纯文本查看 复制代码

(defun XD::List:IsTable(lst)
  	(if 
		(and
        		(= (type lst) 'LIST)
        		(if (apply '= (mapcar 'atom lst))
                		(not (atom (car lst)))
        		)
        		(apply '= (mapcar 'length lst))
      		)
    		(list (length lst)(length (car lst)))
  	)
)