Daha sonra kullanmak için bir yıkım haritasının saklanması

Question

Alıntı, alıntı-ekleme, değerlendirme ve aklıma gelebilecek başka herhangi bir şeyle uğraşmaya çalışıyorum ama şimdiye kadar hiç şans yok. Neden işe yaramadığını anlıyorum - bu bir harita olarak görülüyor ve a, b ve c durumlarını değerlendirmeye çalışıyor.

(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) 

Ben birkaç kez kullanarak düşünüyorum oldukça dahil yapı bozma haritası var, yüzden bir yere uzağa sokmak için iyi bir fikir gibi görünüyordu. Belki bunun için daha iyi yollar vardır?

Answer 1

İyi fikir, ama bunu tam olarak yapamazsınız, çünkü depolamak istediğiniz şey gerçekten bir değer değildir, bu yüzden onu bir varda saklayamazsınız.

Bunun yerine, onun genişleme bu içeren bir makro tanımlayabiliriz: @ amalloy yanıt gibi

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

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

Answer 2

şey benim de ilk içgüdüsü oldu ve muhtemelen gitmek için bir yoldur. Yani düz bir ol dikkate değer olabilir dedi' Üst düzey işlevi:

(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))) 

Biraz nosier ve sen her zaman bağlamaları isim zorladı, ancak ne kadar bağlı potansiyel hijyen sorunlarını önlemek ve Metaprogramlama ile konfor düzeyiniz, bir araya getirilmesi biraz daha kolay.

Answer 3

Sen alıntı/unquoting seviyeleri ile yok edici düzeninin

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

Bunu yapabilirsin alıntı gerekir, ama biraz yardımcı işlevi ile görmek kolaydır.

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

Bu eval gösterilen

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

olarak (makro genişleme sırasında) "derlemek" zaman gerçekleşir

(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)) 

Sonucu

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