计算多个列表中的函数

Question

我需要生成一个包含列表列表平均值的列表，其中子列表的数量可能会有所不同。因此，给出输入列表：

((l1a l1b l1c) (l2a l2b l2c) (l3a l3b l3c)...)

输出为：

(average(l1a l2a l3a) average(l1b l2b l3b) average(l1c l2c l3c)...).

我敢肯定有一种非常精巧的方式可以做到这一点，但是我不知道从哪里开始。任何建议将不胜感激。

Answer 1

CL-USER 27 > (let* ((list-of-lists '((1.0 2.0 3.0)
                                     (1.0 3.0 5.0)
                                     (1.0 4.0 6.0)
                                     (1.0 5.0 8.0)))
                    (length (length list-of-lists)))
               (mapcar (lambda (x)
                         (/ x length))
                       (reduce (lambda (l1 l2)
                                 (mapcar #'+ l1 l2))
                               list-of-lists)))
(1.0 3.5 5.5)