क्लोजर मैक्रो जो एक फ़ंक्शन

Question

से उच्च ऑर्डर फ़ंक्शन बनाता है, मैं एक मैक्रो लिखने की कोशिश कर रहा हूं जो कि कंपोज़र में उपयोग किए गए मिडलवेयर बनाता है।

मैं फोन करने के लिए सक्षम होना चाहते हैं:

(def-middleware plus-two [x] 
    (+ 2 x)) 

और परिणाम देखने के लिए की तरह है: अब तक ऑन लाइन गाइड पढ़ने से

(defn plus-two [f] 
(fn [x] 
    (f (+ 2 x))) 

मैं इस मिल गया है लेकिन यह पता काम नहीं कर रहा मेरे लिए:

(defmacro def-middleware [fn-name args & body] 
    '(defn ~fn-name [f] 
    (fn ~args 
     (f ~@body)))) 

कोई मदद या एक बेहतर मैक्रो लेखन गाइड करने के लिए एक सूचक धन्यवाद बहुत अच्छा होगा,।

Answer 1

देखते हैं क्या macroexpand-1 हमें देता है:

user=> (clojure.pprint/pprint (macroexpand-1 '(def-middleware plus-two [x] (+ 2 x)))) 
(defn 
~fn-name 
[f] 
$ 
(fn ~args$ (f (clojure.core/unquote-splicing body)))) 

नहीं ठीक है कि हम क्या करने के बाद हो! सबसे पहले चीज़ें: यदि आप मैक्रो में चीजों को अनवरोधित करना चाहते हैं, तो आपको "` "(quasiquote/syntax-quote ऑपरेटर) का उपयोग करने की आवश्यकता है, न कि" "। साथ ही, मुझे यकीन नहीं है कि आप उन डॉलर के संकेतों के बाद क्या कर रहे हैं, लेकिन हो सकता है कि आप स्वच्छता के लिए gensym का उपयोग करने के लिए क्लोजर के आसान शॉर्टकट के लिए जा रहे हैं। लेकिन आपको इसके द्वारा उपयोग किए जाने वाले प्रत्येक पहचानकर्ता के तुरंत बाद इसकी आवश्यकता है (इसलिए [f#], [f]$ नहीं), और आपको पहचानकर्ता की प्रत्येक घटना पर इसकी आवश्यकता है। और आप को args के साथ इसकी आवश्यकता नहीं है। इस सबको एक साथ रखें:

user=> (defmacro def-middleware [fn-name args & body] `(defn ~fn-name [f#] (fn ~args (f# ~@body)))) 
#'user/def-middleware 
user=> (clojure.pprint/pprint (macroexpand-1 '(def-middleware plus-two [x] (+ 2 x)))) 
(clojure.core/defn 
plus-two 
[f__594__auto__] 
(clojure.core/fn [x] (f__594__auto__ (+ 2 x)))) 
nil 
user=> 

Answer 2

शायद यह सिर्फ एक मैक्रो व्यायाम है, लेकिन एक मिडलवेयर समारोह को परिभाषित करने की विशिष्ट उदाहरण अच्छा नहीं है - आप लचीलापन है कि मिडलवेयर अवधारणा आप देता है की एक बहुत कुछ खो देते हैं। उदाहरण के लिए, (+ 2 (f x)) के बजाय (f (+ 2 x)) का मूल्यांकन क्यों करना चाहिए? दोनों इस फ़ंक्शन को लपेटने के समझदार तरीके हैं, और आपका वाक्यविन्यास बाद वाले का वर्णन करने का कोई तरीका नहीं देता है। वास्तव में केवल फ़ंक्शन-रिटर्निंग-फ़ंक्शन को परिभाषित करना लचीला, सरल और आसान है; यह मैक्रो टेबल पर थोड़ा लाता है।