lisp - 替换 lisp 中的函数

Question

我想替换给定列表中的单词但是当替换单词由列表给出时很难

例如 (myreplace '((dog cat)(cute lovely)) '(我的狗很可爱)) -> (我的猫很可爱)

帮帮我!

Answer 1

这是给你的递归版本:

(defun myreplace (subst-alist replace-in)
  (when replace-in
    (let ((found (assoc (car replace-in) subst-alist :test #'eq)))
      (cons 
       (if found
           (cadr found)
         (car replace-in))
       (myreplace subst-alist (cdr replace-in))))))

如果您更喜欢这种方法，这里有一个迭代版本:

(defun myreplace (subst-alist replace-in)
  (let (result)
    (dolist (word replace-in (reverse result))
      (let ((found (assoc word subst-alist :test #'eq)))
        (push (if found (cadr found) word)
              result)))))