列表的向量加法

Question

如果我有一个 N 个列表，每个列表的长度为 M，那么我如何编写一个漂亮的干净函数来返回长度为 M 的单个列表，其中每个元素都是 N 个列表中相应元素的总和？

（开始学习 lisp - 慢慢来！）

Answer 1

这是 map 和 apply 函数的工作。这是一种方法，由内森·桑德斯（Nathan Sanders）建议编辑：

(define (add-lists . more)
  (apply map + more))

Answer 2

对于更像 matlab 的语法：

(define (piecewise func)
  (lambda more
    (apply map func more)))
(define pw piecewise)

((pw +) '(1 2 3 4 5) '(6 7 8 9 0))
((pw -) '(1 2 3 4 5) '(6 7 8 9 0))
((pw *) '(1 2 3 4 5) '(6 7 8 9 0))
((pw /) '(1 2 3 4 5) '(6 7 8 9 0.1))

输出：

(7 9 11 13 5)
(-5 -5 -5 -5 5)
(6 14 24 36 0)
(1/6 2/7 3/8 4/9 50.0)

Answer 3

这在麻省理工学院的计划中有效。

 (map + '(1 2 3) '(4 5 6) '(7 8 9))
;Value 28: (12 15 18)