Clojure：使用 for 定义一个 forv 宏

Question

我正在尝试编写我的第二个宏，但我完全被困在这里。

我想避免每次都写(vec (for [...]))，所以我尝试写一个forv 宏，比如filterv、mapv 等。 我在我的程序中主要使用向量，因为我需要访问索引，因为我使用外部缓冲区/描述符来固定矩阵过程。 我写了很多类似 ***v 的函数（还有像 fmap 这样的自适应函数），但我坚持使用。

所以我写了

(defmacro forv
  [seq-exprs body-expr]
  (vec (for (vec seq-exprs) body-expr)))

我尝试单独使用 seq-exprs，但它不起作用。老实说，我也尝试过~等等，但我不知道它是如何工作的，我在我的第一个宏中成功了，因为它要容易得多。

Clojure 告诉我 for 需要一个用于绑定的向量。

有人可以帮助我并解释我缺少什么吗？谢谢！

Answer 1

您可以使用内置的into the Tupelo Library。源码在这里：https://github.com/cloojure/tupelo/blob/master/src/tupelo/core.cljc#L181

(defmacro forv
  "Like clojure.core/for but returns results in a vector.  Equivalent to (into [] (for ...)). Not
   lazy."
  [& body]
  `(vec (for ~@body)))

Answer 2

;;
;; you want something like that in the end: (forv [x (range 2)] x)  => (vec (for [x (range 2)] x))
;;

(defmacro forv
  [seq-exprs body-expr]
  `(vec (for [~@seq-exprs] ~body-expr)))
;;
;; check quote and unquote
;; in particular, check the tricky bit is https://clojuredocs.org/clojure.core/unquote-splicing
;;

编辑：我的回答基于模仿问题中的原始代码，但 Alan 的回答比我的要好。