用法
评论
建议
取 消
确 定
(defun list:remove-once (lst item / f) "删除表中第一个匹配到的元素" "删除元素后的表" "(list:remove-once '(1 2 3 4 3)\n 3)" (setq f equal) (vl-remove-if (quote (lambda (a) (if (f a item) (setq f (lambda (a b) nil))))) lst))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新