用法
评论
建议
取 消
确 定
(defun list:exist (lst item) "判断item是否在列表内" "存在t,反之nil" "(list:exist '(1 2 3 4) 3)" (apply (quote or) (cons (vl-position item lst) (mapcar (quote (lambda (x) (list:exist x item))) (vl-remove-if (quote atom) lst)))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新