recursion - 方案列表操作(递归)

Question

这里的基本问题是，当给定一个列表时，返回该列表中除最后一个元素之外的所有元素。例如，给定 (a b c d) --> 返回 (a b c)。我本质上有这个功能，只是我遇到了麻烦，而且谷歌不太友好。我不确定我是否正确使用了 cons。

(define all-but-last
  (lambda (x)

   (if (null? (cdr x)) 
      ('()))
   (cons ((car x) (all-but-last(cdr x)))
)))

熟悉 r5rs 方案语法的人会很有帮助。谢谢!

Answer 1

如果删除 '() 周围的额外括号以及 cons 的参数，则代码将正常工作(对于非空输入列表)。