是否有一种惯用的方法来干掉clojure中类似的函数定义？

Question

我开始使用以下代码(想象不止这些,但我认为这得到了重点):

(defn fun1 [arg] {:fun1 arg})
(defn funA [arg] {:funA arg})
(defn funOne [arg] {:funOne arg})
(defn funBee [arg] {:funBee arg})

(defn -main [& args] (prn (fun1 "test-data")))

我的下一个传递使它如此:

(defmacro item-defn [a]
  `(defn ~(symbol a) [arg#] {~(keyword a) arg#}))
(item-defn "fun1")
(item-defn "funA")
(item-defn "funOne")
(item-defn "funBee")
(defn -main [& args] (prn (fun1 "test-data")))

有没有办法把它归结为:

(defmacro item-defn [a]
  `(defn ~(symbol a) [arg#] {~(keyword a) arg#}))
(map #(item-defn %) ["fun1" "funA" "funOne" "funBee"])
(defn -main [& args] (prn (fun1 "test-data")))

(我尝试在repl中,它似乎工作,但当我加载它的clj文件,然后它不起作用.它给我一个"CompilerException""无法解析符号:fun1")

我在滥用宏吗？你会怎么做？

Answer 1

您可以为此目的定义另一个宏,例如:

(defmacro item-defn [a]
  `(defn ~(symbol a) [arg#] {~(keyword a) arg#}))

(defmacro items-defn [& names]
  `(do ~@(for [n names] `(item-defn ~n))))

然后你就可以用它来定义任意数量的函数:

(items-defn "fun1" "funA" "funOne" "funBee")