Clojure: cách đánh giá biểu mẫu được trích dẫn trong phạm vi địa phương?

Question

Tôi muốn xác định macro chọn ngẫu nhiên một trong các biểu thức đã cho và đánh giá nó. Ví dụ:

(equal-chance 
    (println "1") 
    (println "2")) 

phải in "1" một nửa thời gian và "2" nửa còn lại.

tôi đã cố gắng sử dụng,

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

nhưng điều này trả về một trong những dạng trích dẫn, chứ không phải là đánh giá nó (tức là nó sẽ quay trở lại (println "1") hơn là thực sự in ấn "1"). Tôi không thể sử dụng eval vì nó không giữ lại các ràng buộc. Ví dụ:

(let [x 10] (eval '(println x))) 

phàn nàn rằng không thể giải quyết biểu tượng x.

Có cách nào để đánh giá biểu mẫu được trích dẫn trong phạm vi địa phương không? Hoặc có thể có một cách tốt hơn để đi về điều này?

Answer 1

Bạn không thể đánh giá giá trị thời gian chạy trong môi trường từ vựng chỉ tồn tại trong thời gian biên dịch. Các giải pháp là sử dụng fn thay vì quote và một cuộc gọi chức năng thay vì eval:

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

Cách làm việc này là bằng cách mở rộng (equal-chance e1 e2 ...) vào ((rand-nth [(fn [] e1) (fn [] e2) ...])).

Answer 2

Chỉ cần không báo giá cuộc gọi đến rand-nth hoặc biểu thức. Điều này sẽ làm những gì bạn muốn:

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