lisp里面反转一个列表里面的值？递归实现有问题啊

Question

这个是我的代码：(defunreverse-list2(list)
(if(nulllist)nil
(cons(reverse-list2(restlist))(firstlist))))我想反转，一个字符串列表。比如(reverse-list2'("tar""tip""net"))
希望是("net""tip""tar")这样。
结果是：(((NIL."net")."tip")."tar")然后我把代码这样：(defunreverse-list2(list)
(if(nulllist)nil
(cons(firstlist)(reverse-list2(restlist)))))然后就正常输出，顺序的列表了。
这个不理解啊。

Answer 1

可以参考我的(defunmy-reverse(lst)(labels((nxt(lstrst)(if(nulllst)rst(nxt(cdrlst)(cons(carlst)rst)))))(nxtlstnil)))需要注意的是cons是把一个element给cons到一个list前面，你这里的用法是有问题的。

Answer 2

我的解法。首先定義一個(rcar)算子，取列表的最後一項。然後定義一個(rcdr)算子，取列表除最後一項的其餘項。這兩個算子同(car)與(cdr)是對稱的。然後使用(rcar)與(rcdr)定義(reverse)算子。(rcar)和(rcdr)兩個算子在其他的地方也可以用到。(defrcar(lambda[L](cond[(eq(cdrL)[])(carL)][#true(*lambda*(cdrL))])))(defrcdr(lambda[L](cond[(eq(cdrL)[])[]][#true(cons(carL)(*lambda*(cdrL)))])))(defreverse(lambda[L](cond[(eqL[])L][#true(cons(rcarL)(*lambda*(rcdrL)))])))