我想编写一个通用函数来添加向量:
使用 map 我可以执行以下操作:
(vec (map + [1 2] [1 2] [1 2]))
⇒ [3 6]
(vec (map + [1 2 3] [1 2 3] [1 2 3]))
⇒ [3 6 9]
我希望能够将其包装成一个接受任意数量向量的函数。目前我有一个使用循环和递归的版本:
(defn add-coords [& args]
(loop [coords (first args) more (rest args)]
(if (empty? more)
(vec coords)
(recur (map + coords (first more))
(rest more)))))
(add-coords [1 2] [1 2] [1 2])
⇒ [3 6]
(add-coords [1 2 3] [1 2 3] [1 2 3])
⇒ [3 6 9]
有什么方法可以在一行中完成此操作吗?像这样的东西:
(defn add-coords [& args] (vec (map + args)))
最佳答案
应用mapv
应该有帮助:
user=> (defn add-coords [& args]
(when (seq args)
(apply mapv + args)))
实际行动
user=> (add-coords [1 2 3] [1 2 3] [1 2 3])
[3 6 9]
关于Clojure:向量加法的可变参数函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29751309/