定义一个 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 包含所有这些功能，所以应该是一样的。