有没有统计表的元素在表中出现次数的程序?

zhuquanmao · 发表于 2013-4-18 16:52:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由炫翔于 2013-4-19 11:15 编辑

有没有统计表的元素在表中出现次数的程序? 论坛上没有搜到啊

炫翔 · 发表于 2013-4-18 16:56:14

随便写了，试试！
[pcode=lisp,true];统计表中相同元素数目
;(XX-Lst-N-N-DumpAtom '("aaa" "bbb" "ccc" "aaa" "ccc"))
;返回：(("aaa" . 2) ("bbb" . 1) ("ccc" . 2))
(defun xx-lst-n-n-dumpatom (lst / lst1 lst2)
  (while lst
(setq lst1 (vl-remove (car lst) lst))
(setq lst2 (cons (cons (car lst) (- (length lst) (length lst1))) lst2))
(setq lst lst1)
  )
  (reverse lst2)
)
[/pcode]

yoyoho · 发表于 2013-4-18 18:32:16

感谢炫翔版主分享程序!
蛮实用的!:)

zhuquanmao · 发表于 2013-4-21 22:41:54

炫翔发表于 2013-4-18 16:56

登录/注册后可看大图

随便写了，试试！
;统计表中相同元素数目
;(XX-Lst-N-N-DumpAtom '("aaa" "bbb" "ccc" "aaa" "ccc"))

感谢炫翔的无私奉献程序很好简洁明了实用

金鹅起飞 · 发表于 2013-11-8 22:29:51

炫翔发表于 2013-4-18 16:56
随便写了，试试！
;统计表中相同元素数目
;(XX-Lst-N-N-DumpAtom '("aaa" "bbb" "ccc" "aaa" "ccc"))

炫翔大师：您好！统计表中相同元素数目程序的快捷键是什么？我搞不清楚，只知道这样的快捷键，比如：(defun c:tt (/ ss n blkref atts a)，这个快捷键是：tt。您编写的和这个不一样，请指教，谢谢！

账号		自动登录	找回密码
密码			立即注册

[已解决] 有没有统计表的元素在表中出现次数的程序?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评