用法
评论
建议
取 消
确 定
(defun list:positions (item lst / res) "获取元素 item 在 表 lst 中的所有位置。" "list" "(list:postions 'a '(a b a)) => (0 2)" (setq l (length lst)) (while (setq lst (member item lst)) (setq res (cons (- l (length lst)) res)) (setq lst (cdr lst))) (reverse res))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新