Lưu trữ bản đồ phá hủy để sử dụng sau này

Question

Tôi đã cố gắng làm việc này với báo giá, trích dẫn quote, eval và bất kỳ điều gì khác mà tôi có thể nghĩ đến, nhưng không may mắn cho đến nay. Tôi hiểu lý do tại sao nó không hoạt động - nó được xem như là một bản đồ, và nó đang cố gắng để đánh giá a, b và c - chỉ cần không làm thế nào để có được nó.

(def destructor {a :a b :b c :c}) 
; CompilerException java.lang.RuntimeException: Unable to resolve symbol: a in this context, compiling:(:1:15) 

(let [destructor my-map] 
    'etc) 

Tôi có một bản đồ có liên quan đến phá hoại mà tôi đang cân nhắc sử dụng nhiều lần, vì vậy, có vẻ là một ý tưởng hay để bỏ nó đi đâu đó. Có lẽ có những cách tốt hơn để đi về nó?

Answer 1

Ý tưởng hay, nhưng bạn không thể làm theo cách này, bởi vì thứ bạn muốn lưu trữ không thực sự là một giá trị, vì vậy bạn không thể lưu trữ nó trong một var.

Thay vào đó, bạn có thể định nghĩa một macro trong đó bao gồm này trong việc mở rộng của nó:

(defmacro with-abc [abc & body] 
    `(let [~'{:keys [a b c]} ~abc] 
    ~@body)) 

(with-abc foo 
    (...use a, b, and c...)) 

Answer 2

Something như câu trả lời @ amalloy là bản năng đầu tiên của tôi quá và nó có thể là con đường để đi. Điều đó nói rằng, nó có thể là giá trị xem xét một ol đồng bằng' chức năng bậc cao:

(defn destruct 
    [{a :a b :b c :c} f] 
    (f a b c)) 

(destruct my-map 
      (fn [a b c] 
      (println a) 
      (println b) 
      (println c))) 

Đó là nosier một chút và bạn buộc phải đặt tên cho các ràng buộc mọi thời gian, nhưng bạn tránh các vấn đề vệ sinh tiềm năng và, tùy thuộc vào mức độ thoải mái của bạn với metaprogramming, nó dễ dàng hơn một chút để đặt lại với nhau.

Answer 3

Bạn sẽ cần phải trích dẫn mô hình huỷ

(def my-destructor '{a :a b :b c :c}) 

Bạn có thể làm điều này với mức trích dẫn/unquoting, nhưng nó là dễ dàng hơn để xem với một hàm helper ít.

(defn- with-destructor* [binding & body] 
    `(let ~binding ~@body)) 

eval này xảy ra tại "biên dịch" thời gian (trong mở rộng vĩ mô)

(defmacro with-destructor [[destructor form] & body] 
    (eval `(with-destructor* [~destructor '~form] '~@body))) 

Như

(macroexpand-1 '(with-destructor [my-destructor {:a 1 :c 3}] (+ a c))) 
;=> (clojure.core/let [{a :a, b :b, c :c} {:a 1, :c 3}] (+ a c)) 

quả

(with-destructor [my-destructor {:a 1 :c 3}] (+ a c)) 
;=> 4