list - 用列表中的单词替换数字

Question

我试图用一个词替换列表中的所有数字并保持原始词:例如:(垃圾邮件'(我吃了1，他也吃了1))输出:我吃了食物，他也吃了食物.在我的函数中，如果列表为空，我首先检查基本情况。 然后我递归地检查列表中的字符，如果它们是数字，则将它们转换为一些单词食物。最后我检查字符是否是字符保留它。即使我认为逻辑是正确的，代码也无法正常工作并出现错误。所以这是我的代码

(defun spam(list)
    (if (null list) nil
        (if (first numberp list) 'food (spam(rest list))
            ((first list)(spam(rest list)))
        )
    )
) 

Answer 1

CL-USER > (subst-if 'food #'numberp '(i ate 1 and he ate 1 too))
(I ATE FOOD AND HE ATE FOOD TOO)