Autolisp替换列表中的元素

2024年4月1日 152次阅读来源: qq_39944711

(defun subst#(n o lst / x)

(if lst

(cons

(cond

((atom (setq x (car lst)))

(if (= x o) n x)

)

(T (subst# n o x))

)

(subst# n o (cdr lst))

)

;;;例如：

;;;(subst# ‘m ‘b ‘(a b (a b c) d))

;;;==> (a m (a m c) d)

    原文作者：qq_39944711
    原文地址: https://blog.csdn.net/qq_39944711/article/details/83617990
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。