如何避免clojure中的重复函数参数？

Question

我有一系列的功能，都做不同的事情，但传递相同的数据。假设我有以下参数向量。

[{:keys [x y vx vy x-min x-max y-min y-max] :or {x-min 0 x-max c-width y-min 0 y-max c-height}}] 

基本上你不想重复的东西的类型不止一次。我以为有一个想法是做类似的事情。

(def func-args [x y z]) 
(defn func func-args (+ x y z)) 

然后我可以重新使用func-args，如果我有类似的功能。但是，前面示例的第一行引发了一个符号x无法解析的错误。

• 有没有办法让矢量成员作为符号？
• 有没有比我建议的方法更加通俗的方法来完成函数参数代码膨胀减少？

Answer 1

这里是做这件事的另一种方式，接受函数参数符合规范向量作为参数传递给宏：

(defmacro defn-args 
    [fn-name fn-args & forms] 
    `(defn ~fn-name ~(eval fn-args) ~@forms)) 

(def square-args '[x]) ; must quote [x] here 
(defn-args my-square square-args (* x x)) 

(my-square 3) 
;=> 9 

Answer 2

引用矢量会使其符号未被评估，但defn需要定义中的文字矢量，因此这不会像您所建议的那样工作。

最简单的方法是创建一个宏。宏可以让你创建自己的语法。在Clojure中，这种（放大）宏是不鼓励的，因为很容易遇到为宏创建符号的问题。

喜欢的东西：

(def cheight 100) 
(def cwidth 100) 
(defmacro defx [name & body] 
    `(defn ~name [{:keys [~'x ~'y ~'vx ~'vy ~'x-min ~'x-max ~'y-min ~'y-max] 
       :or {~'x-min 0 ~'x-max ~'c-width ~'y-min 0 ~'y-max ~'c-height}}] 
    ~@body)) 

(defx func (+ x y)) 

(func {:x 1 :y 2}) ;; 3