消除lisp中的所有后续数字

Question

我是 lisp 新手，我在作业中遇到了一个问题，要求消除所有后续数字，只有第一个数字会出现在列表中 例如(1 1 2 1 3 1 1 1) 将是(1 2 1 3 1)

我的代码是：

;the input is (1 1 2 1 3 1 1 1)
 (defun eli(x)
   ; this condition will check if x is empty or has only one element
  (if (or(null x)(null (cdr x))) x 
    ; if the first element is 1 but the second element is not 1
    (if (and (= 1 (car x))(not (= 1 (car (cdr x)))))
         ; if true then append 1 and call the function with the rest of the list
        (cons (car x)(eli(cdr x)))
         ; if false call the function recursivaly
        (eli(cdr x))
      )))
         ; the output is (1 2 1 3 1 1)

这段代码生成(1 2 1 3 1 1)

知道我哪里做错了吗？

Answer 1

你的问题是这个谓词：

(and (= 1 (car x))(not (= 1 (car (cdr x))))))

这只是检查第一个元素是否是1 而第二个不是。您应该检查第一个元素是否为numberp，然后检查前两个元素是否为eql，然后跳过该元素。