习题3-7，用reduce实现copy-list和表的reverse函数。
研究完reduce怎么用了，但是对此题很无奈，麻烦吧友给提供个思路

我的版本:
(defun r-copy-list (list)
(reduce (lambda (a b)
(if (atom a)
(list a b)
(nconc a (cons b nil)))) list))
(defun r-reverse (list)
(reduce (lambda (a b)
(if (atom a)
(list b a)
(nconc (cons b nil) a))) list))


还有没有其他版本啊

第二个可以改成这样:
(defun r-reverse (list)
(reduce (lambda (a b)
(if (atom a)
(list b a)
(cons b a))) list))

不得不说这跟SICP里accumulate这块内容也太像了吧。。。

(defun my-reverse (lst)
(reduce #'(lambda (init elt)
(cons elt init))
lst :initial-value nil)