Clojure: Alınan bir formu yerel kapsamda nasıl değerlendirilir?

Question

Verilen ifadelerden birini rastgele seçip değerlendiren bir makro tanımlamak istiyorum. Örneğin, "1" yarısı kadar zaman ve diğer yarısı "2" yazdırmalıdır.

kullanıyorum çalıştı,

(defmacro equal-chance 
    [& exprs] 
    `(rand-nth '~exprs)) 

ama bu daha ziyade onu değerlendirmek yerine, alıntılanan biçimlerinden biri döndürür (yani aslında "1" baskı yerine (println "1") dönecekti). Bağlantıları koruduğu için eval kullanamıyorum. Örneğin, X simgesinin çözümlenemediğinden şikayetçi olur.

Yerel kapsamdaki teklif formunu değerlendirmenin bir yolu var mı? Ya da belki bunun hakkında daha iyi bir yolu var mı?

Answer 1

yalnızca derleme zamanında var olan bir sözcük ortamında bir çalışma zamanı değerini değerlendiremez. Çözelti eval yerine fn yerine quote ve bir işlev çağrısını kullanmaktır: Bu işleri

(defmacro equal-chance [& exprs] 
    `((rand-nth [~@(map (fn [e] `(fn [] ~e)) exprs)]))) 

yolu ((rand-nth [(fn [] e1) (fn [] e2) ...])) içine (equal-chance e1 e2 ...) genişleterek gereğidir.

Answer 2

Yalnızca çağrıyı rand-nth veya ifadelere alıntılama. İstediğin bu yapar:

(defmacro equal-chance 
    [& exprs] 
    (rand-nth exprs))