黄翔 发表于 2024-9-20 09:57:09

表的讨论2

本帖最后由 黄翔 于 2024-9-20 12:59 编辑

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 发表于 2024-9-20 12:07:04

本帖最后由 kozmosovia 于 2024-9-20 12:09 编辑

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

xyp1964 发表于 2024-9-20 12:10:49

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

xtjd 发表于 2024-9-20 17:01:55

(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))
页: [1]
查看完整版本: 表的讨论2