LISP 关于创建新列表的简单问题

Question

一个函数，它接收一个包含子列表的 M*N 的列表，并返回子列表的所有元素的总和

示例:(解决方案'((1 2 3)(4 5 6)))

返回:(5 7 9)

对不起英语不好谢谢=)

Answer 1

Common Lisp 版本几乎与 Scheme 相同:

(defun solution (list)
  (apply #'mapcar #'+ list))

(solution '((1 2 3) (9 10 11) (3 4 5)))
; ==> (13 16 19)