错误的参数类型 listp, "GIF" 反转列表时

Question

我写了这样一个函数来反转一个列表

练习 2.18。定义一个以列表为参数并以相反顺序返回相同元素的列表的过程 reverse：

#+begin_src emacs-lisp :session sicp :lexical t
(defun reversex(item)
  (cond
   ((null item) nil)
   ((cons (reversex (cdr item))
          (car item)))
   ))
(reversex (list 1 4 9 16 25))
#+end_src

第一次运行得到以下输出：

#+RESULTS:
: (((((nil . 25) . 16) . 9) . 4) . 1)

但是第二次运行，报错：

  Wrong argument type listp, "GIF"

Answer 1

不清楚“GIF”的来源，因为您没有为您提到的“第二次运行”提供输入。无论如何，您反转列表的算法不正确，您应该构建一个 正确的列表 作为输出，但不是这样：

(((((nil . 25) . 16) . 9) . 4) . 1)

应该是这样的：

'(25 . (16 . (9 . (4 . (1 . nil)))))

这是一种方法 - 使用累加器参数。还要注意cond 的else 条件应该如何写：

(defun reversex (lst acc)
  (cond
    ((null lst) acc)
    (t (reversex (cdr lst) (cons (car lst) acc)))))

(reversex '(1 4 9 16 25) nil)
=> (25 16 9 4 1)