我已经找了好几天了，基本上我需要实现一个函数，它与系统函数 reduce 所做的事情相同。这是我到目前为止提出的，但没有初始值i 我无法让它工作。
这是我的代码
(defun my-reduce (p i lista)
(if (null lista)
i
(funcall p (car lista) (my-reduce p i (cdr lista)))))
顺便说一句，它甚至不能正常工作，因为它“倒退”了 例如：
(my-reduce #'list NIL '(1 2 3 4))
应该返回
(((1 2) 3) 4)
但我明白了
(1 (2 (3 (4 NIL))))
有什么想法吗？
【问题讨论】：
标签： list functional-programming lisp common-lisp reduce
我认为您已经实现了正确的右折叠，因为这通常被称为，但想要一个左折叠。注意特征尾递归，并使用“默认”值作为累加器：
(defun my-left-reduce (f i xs)
(if (null xs)
i
(my-left-reduce f (funcall f i (car xs)) (cdr xs))
（而且我从未使用过 Common Lisp，但概念应该很清楚。）
除此之外：通常认为“向后”的是左侧折叠。比较 (my-reduce cons NIL '(1 2 3)) 和 (my-left-reduce cons NIL '(1 2 3))。后者应该反转列表的原始 cons 结构。
【讨论】：
NIL？
:initial-value，如果未设置，就好像您使用列表中的cdr 调用它并使用car 作为初始值。当关键字参数 :from-end 设置为 true 时，它会像右折叠一样执行元素。
labels 定义助手
可以通过简单的迭代来实现左折叠：
(defun my-fold-left (reducer initial list)
(loop for fold = initial then (funcall reducer fold element)
for element in list
finally (return fold)))
例如：
(my-fold-left #'cons 0 '(1 2 3 4))
((((0 . 1) . 2) . 3) . 4)
(my-fold-left #'cons 0 '())
0
如果你使用map，你也可以泛化和折叠向量：
(defun my-fold-left (reducer fold sequence)
(map nil
(lambda (e) (setf fold (funcall reducer fold e)))
sequence)
fold)
以防万一您没有阅读它，this answer 对左右折叠有很好的高级解释。
【讨论】：