编辑:找出了最初的问题现在它说没有函数sel2,我不确定为什么它认为我在调用sel2是一个列表的函数我觉得这是个名单。
我觉得我在做傻事,但为了我的生命,我想不出来我应该创建一个函数来反转列表(可以使用reverse函数)和一个函数来检测列表是否包含回文到目前为止,我已经:
(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
多谢。
最佳答案
根据上面的评论解决了我自己的问题也解决了函数调用问题。
新代码:
(defun Myreverse (sel)
(reverse sel)
)
(defun Palindrome (pal)
(equal pal (reverse pal))
)