用法
评论
建议
取 消
确 定
(defun list:delsame (lst buzz) "删除表中相同元素,保留第一次出现的位置" (if lst (cons (car lst) (list:delsame (vl-remove-if (quote (lambda (x) (equal (car lst) x buzz))) (cdr lst)) buzz))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新