Question

编辑：弄清楚最初的问题。现在它说没有功能sel2，我不确定为什么它认为我在sel2是一个列表时调用一个函数。看起来它被称为我的列表。

我觉得我做的事情很愚蠢，但对于我的生活，我无法弄明白。我应该创建一个反转列表的函数（可以使用反向函数）和一个检测列表是否包含回文的函数。到目前为止，我有：

 (defun Myreverse (sel)

    (return-from Myreverse (reverse sel))
)

(defun Palindrome (sel2)
    (if (= sel2 (reverse (sel2)))
        (return-from Palindrome (write "Yes"))
    )
    (write "No")
)

(Myreverse '(1 2 3 4))

有谁知道我做错了什么？如果是这样，你能指出我正确的方向吗？

READ from #<INPUT CONCATENATED-STREAM #<INPUT UNBUFFERED FILE-STREAM CHARACTER @7>>: illegal character #\Null

非常感谢。

Answer 1

根据上述评论解决了我自己的问题。还解决了函数调用问题。

新代码：

(defun Myreverse (sel)

    (reverse sel)
)

(defun Palindrome (pal)
    (equal pal (reverse pal))
)

错误：<input concatenated =“”stream =“”/>的空字符

1 个答案: