macros - 我是在重新发明(方形)轮子吗？

Question

我们应该知道，Clojure 的 map 可以应用于序列:

(map #(* %1 %1) [1 2 3])           ; (1)

..或者多个，通过这种方式:

(map vector [0 1] [2 1])           ; (2)
;=> ([0 2] [1 1])

现在我想获得与 (2) 相同的结果，但我将参数存储在序列中。换句话说，以下内容没有给出所需的结果:

(map vector [[0 1] [2 1]])         ; (3)
;=> ([[0 1]] [[2 1]])

所以我编写了这个简单的宏，其中 umap 代表“unsplice map”:

(defmacro umap [fun args-list]
  "umap stands for unspliced map.
  Let args-list be a list of args [a1 a2 ... an].
  umap is the same of (map fun a1 a2 .. an)"
  `(map ~fun ~@args-list))

显然它的作用就像一个魅力:

(umap vector [[0 1] [2 1]])        ; (4)
;=> ([0 2] [1 1])

所以这是我的问题:我是在重新发明轮子吗？还有其他方法可以实现与(4)相同的功能吗？

提前再见，谢谢

阿尔弗雷多

Answer 1

apply 解压参数列表末尾序列中的所有元素。

user> (apply map vector [[0 1] [2 1]])
([0 2] [1 1])