macros - 如何在 clojure 中制作这个宏变量？

Question

我想做一个叫做 ds 的东西，这样

(let [a 2]
  (ds a))

->

 "a->2"

和

(let [a 1 b 2 c 3]
    (ds a b c)) 

->

 "a->1, b->2, c->3"

到目前为止，我已经做到了:

(defmacro ds3 [a b c] 
     `(clojure.string/join ", " 
          [(str '~a "->" ~a) 
           (str '~b "->" ~b) 
           (str '~c "->" ~c)]))

这似乎有效:

 (let [ a 1 b 2 c 3]
     (ds3 a b c)) ; "1->1, 2->2, 3->3"

显然我可以定义 ds1 ds2 ds3 等...，但我想知道如何使其可变？

Answer 1

给你:

(defmacro ds [& symbols]                                                                                                                             
  `(clojure.string/join ", "                                                                                                                         
                        ~(into [] 
                           (map (fn [s] `(str ~(name s) "->" ~s))  symbols))))