在常见的lisp中减少/折叠2d数组的最佳方法

Question

Emacs lisp有reduce-vec.在没有使用循环或重新发明轮子的情况下,在普通的lisp中执行此操作的正确方法是什么？

Answer 1

您应该可以使用以下内容.它适用于任何维度的数组.

(defun reduce-multidimensional-array (fn arr &rest args)
  (apply #'reduce
         fn
         (make-array (array-total-size arr) :displaced-to arr)
         args))

简而言之,这通过创建一个一维数组来实现,该数组与传入的数组共享元素.由于reduce在一维数组上工作,因此可以减少新数组.

函数array-total-size返回数组中元素的总数,而:displacement-to关键字参数使新数组与传入的数组共享元素(即使它们具有不同的维度).