如何对列表列表中的内部序列求和?

How do I sum the inner sequence in a list of lists?

我想取一个sequences序列,然后对每个内序列求和。

数据 ((1 2 3) (2 3 4) (3 4 5) (4 5 6))

期望输出 ((6) (9) (12) (15)) 或 (6 9 12 15)

我试过 apply map +,但没有提供所需的输出。我也尝试过 reduce.

(map #(apply + %) '((1 2 3) (2 3 4) (3 4 5) (4 5 6)))
;; => (6 9 12 15)

(map #(list (apply + %)) '((1 2 3) (2 3 4) (3 4 5) (4 5 6)))
;; => ((6) (9) (12) (15))