小编jpm*_*jpm的帖子

这是我到目前为止得到的，但它只是将第一个元素与第二个元素进行比较。因此，如果我评估这个？（检查\xe2\x80\x98（aaaa））它应该返回true，但如果我评估？（检查\xe2\x80\x98（aaab））它应该返回Nil

(defun check (lista)\n(cond\n((null lista)'())\n((equal (car lista)(cadr lista))cdr lista)\n(t(check (cdr lista)))))\n