用法
评论
建议
取 消
确 定
(defun list:same-num (lst / l2 tmp) "表中相同元素及数量" (while (setq tmp (vl-remove (car lst) lst) l2 (if (member (car lst) (cdr lst)) (cons (list (car lst) (- (length lst) (length tmp))) l2) l2) lst tmp)) (reverse l2))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号