表的讨论2

黄翔

http://bbs.mjtd.com/thread-191201-1-1.html
看大家讨论的很多.

(setq lst '("a" "b" "c" 1 "e" "f"))
;;判断表子项全部是字符串返回T, 否则返回nil
(apply 'and (mapcar  '(lambda (x) (eq 'str (type x))) lst))


;;判断表子项有一个字符串则返回T, 否则返回nil
(apply 'or (mapcar  '(lambda (x) (eq 'str (type x))) lst))
;;或者用vl-some,效率更高
(vl-some '(lambda(x)(eq 'str (type x)))lst)


(setq lst '(nil nil nil nil))
;;;判断表全部是nil返回T, 否则返回nil
(apply  '=  (mapcar '(lambda (x)(null x))lst))
;;;或者
(not(vl-remove nil lst))



看看大家上面还有好的处理方法吗?

kozmosovia

表长度不一般不大，已经有几种方式能实现，可以了。再好的方式也提速了不了一秒钟。

xyp1964

(vl-some '(lambda (x) (not(/= (type x) 'str))) lst)

xtjd

(setq lst '("a" "b" "c" 1 "e" "f"))
;;判断表子项全部是字符串返回T, 否则返回nil
(not(vl-some '(lambda(x)(/=(type x)'str))lst))

(setq lst '(nil nil nil nil))
;;;判断表全部是nil返回T, 否则返回nil
(not(vl-some 'type lst))