मूल्यांकन

Question

"संरचना और कंप्यूटर प्रोग्राम की व्याख्या" Clojure साथ में व्यायाम 1.16 (तेजी से exp की पुनरावृत्ति संस्करण) करने के लिए कोशिश कर रहा है मैं इस के साथ आया था:

user=> (fast-it-exp 0 0 10) 
10 ;yep 
user=> (fast-it-exp 2 2 2) 
1  ;no... 
user=> (fast-it-exp 1 1 1) 
#<user$fast_it_exp__59 user$fast_it_exp__59@138c63> ;huh?! 

लगता है कि कंड अभिव्यक्ति का "विषम" भाग मूल्यांकन के बजाए एक फ़ंक्शन देता है। क्यूं कर? मैंने भविष्यवाणियों के बाद अभिव्यक्तियों के चारों ओर कोष्ठक डालने का प्रयास किया है, लेकिन यह गलत वाक्यविन्यास प्रतीत होता है, यह सबसे अच्छा है जिसके साथ मैं आने में सक्षम हूं। मैं क्लोजर के संशोधित 1146 का उपयोग कर रहा हूं।

Answer 1

इस प्रयास करें:

(defn fast-it-exp [base exp res] 
    (cond (= exp 0) res 
     (odd? exp) (fast-it-exp base (- exp 1) (* base res)) 
     :else (fast-it-exp base (/ exp 2) (* base base res)))) 

मुझे कोई आरईपीएल आसान है, लेकिन है कि आप क्या चाहते तरह दिखता है।

(defn fast-it-exp [base exp res] 
    (cond 
    (= exp 0) res 
    (odd? exp) fast-it-exp 
    base (- exp 1) 
    (* base res) :else 
    fast-it-exp base 
    (/ exp 2) (* base base res))) 

तो:

Answer 2

असल में, क्या आप ने लिखा के रूप में पुन: स्वरूपित किया जा सकता है

user=> (fast-it-exp 0 0 10) ; (= exp 0) => res 
10 ;yep 
user=> (fast-it-exp 2 2 2) ; base => (- exp 1) 
1  ;no... 
user=> (fast-it-exp 1 1 1) ; (odd? exp) => fast-it-exp 
#<user$fast_it_exp__59 user$fast_it_exp__59@138c63> ;huh?!