如何避免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