आप इस हास्केल पावर फ़ंक्शन पूंछ को रिकर्सिव कैसे बनाते हैं?

Question

मैं इस हास्केल पावर फ़ंक्शन पूंछ को रिकर्सिव कैसे बनाऊंगा?

turboPower a 0 = 1 
turboPower a b 
    | even b = turboPower (a*a) (b `div` 2) 
    | otherwise = a * turboPower a (b-1) 

Answer 1

turboPower a b = turboPower' 1 a b 
    where 
    turboPower' x a 0 = x 
    turboPower' x a b 
     | x `seq` a `seq` b `seq` False = undefined 
     | even b = turboPower' x (a*a) (b `div` 2) 
     | otherwise = turboPower' (x*a) a (b-1) 

असल में, आप क्या करना चाहते हैं गुणा है कि आप "otherwise" कदम में कर रहे हैं एक और पैरामीटर के लिए (के बाद से है कि क्या पूंछ पुनरावर्ती शुरू में किया जा रहा से इस रहता है) के लिए कदम है।

आलसी के बजाय सभी तीन पैरामीटर सख्ती से मूल्यांकन करने के लिए एक लाइन जोड़ने के लिए संपादित किया गया है, क्योंकि यह उन प्रसिद्ध परिस्थितियों में से एक है जहां आलस्य हमें चोट पहुंचा सकती है।