如何解决定义一个 XLISP 函数 rev-rest,它反转列表中除第一个元素之外的所有元素
定义一个 xlisp 函数 rev-rest,它反转列表中除第一个元素之外的所有元素。也就是说, (rev-rest ‘(a b c d e)) 应该返回 (a e d c b)。
我只能对此进行编码,因为我完全不知道使用什么来使最后四个反向。
(defun rev-rest '(a b c d e))
(write (rev-rest ))
解决方法
在 Common Lisp 中,该函数如下所示:
(defun rev-rest (lst)
(if (null lst) lst
(cons (car lst)
(reverse (cdr lst)))))
带一个参数的函数(名为 lst)。如果 lst 是空列表,则返回。 Else 函数从 lst 的第一个元素 (CONS) 和 lst 的其余元素 (CAR) 创建新列表 (CDR),它们被颠倒了(期望您可以使用内置的REVERSE).
然后你这样称呼它:
(rev-rest '(a b c d e))
XLISP 包含所有这些功能,所以应该是一样的。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。