1

我正在尝试用另一个符号示例替换列表中的符号：（替换 'the 'a '（坐在垫子上的猫））==>（坐在垫子上的猫）所以应该替换“the”通过“一个”

这是我的代码，

(defun replace (item new-item list)
 (cond ((null list)
          list
        ) 
       ((eq (first list) (item))
        ((rplaca list new-item)
         (replace (rest list))))
       ))
;rplace replace the first of the cons with obj
 ;(defparameter *some-list* (list* 'one 'two 'three 'four)) =>  *some-list*
 ;*some-list* =>  (ONE TWO THREE . FOUR)
 ;(rplaca *some-list* 'uno) =>  (UNO TWO THREE . FOUR)

当我在 aligra 中编译它时出现以下错误

Error: Function position must contain a symbol or lambda expression: (RPLACA LIST NEW-ITEM)
[condition type: PARSE-ERROR]

我不明白为什么会给出这个错误，因为 rplace 函数需要两个参数。

4

1 回答 1

2

您的代码中有几个不同的错误：

  • item不是一个函数，所以你不应该用括号括起来
  • 您的递归调用应重复与原始调用相同的两个第一个参数
  • 在所有情况下都应该进行递归调用（而不仅仅是在更换汽车时）
  • 您在调用周围有额外的括号rplaca，这是报告错误的实际原因
(defun replace (item new-item list)
  (cond ((null list)
         list) 
        ((eq (first list) item)
         (rplaca list new-item)
         (replace item new-item (rest list)))
        (t
         (replace item new-item (rest list)))))

(setq l '(a cat sat on a mat))
(replace 'a 'the l)
l ;; -> (the cat sat on the mat)

此外，正如评论中所指出的，不习惯将文字静音；您可能想要构建一个新列表，例如：

(defun replace-1 (item new-item list)
  (mapcar (lambda (car)
            (if (eq car item)
                new-item
              car))
          list))

(replace-1 'a 'the '(a cat sat on a mat))
;; -> (the cat sat on the mat)
于 2012-11-22T15:05:32.680 回答