Matrix 在矩阵中添加列

我正在尝试编写一个函数，该函数接受一个矩阵（表示为列表列表），将元素添加到列中，并返回一个向量（表示为列表）：

例如：

    (define sample
      '((2 6 0 4)
        (7 5 1 4)
        (6 0 2 2)))

应返回

”（15 11 3 10）

我试图两次使用

（list ref）

函数来获得每列的第一个元素，但没有成功。我正在尝试类似于：

(map (lambda (matrix) ((list-ref (list-ref matrix 0) 0)) (+ matrix))

---

解决方案很简单，如果我们忘记索引，而考虑高阶过程，请尝试以下方法：

(define sample
  '((2 6 0 4)
    (7 5 1 4)
    (6 0 2 2)))

(apply map + sample)
=> '(15 11 3 10)

---

说明：

map

可以将多个列表作为参数。如果我们

将
应用于
示例
（这是一个列表列表）并将
+
作为映射过程传递，它将依次从每个列表中提取一个元素并添加它们，生成一个包含结果的列表-有效地，添加矩阵中的所有列。
强制引用。对列求和只使用+而不是列表。非常感谢您的帮助。能够根据我的需要重复使用这个。