lisp do loop factorial code -
(defun fact (n) (करू ((i 1 (+ 1 i)) (प्रॉड 1 (* I prod))) ((बराबर) प्रॉड))) मैंने ऊपर कोड किया है और जब मैं कोशिश करता हूँ, तथ्य (4) , इसे दे मुझे उत्तर 6 है । मुझे यकीन नहीं है कि क्या गलत हो रहा है क्या कोई मेरी मदद कर सकता है?
में बदलें
(defun fact (n) (do ( (I 1 (+ 1 i)) (प्रोड 1 (* i प्रॉड))) ((बराबर i (+ n 1)) ठेका))) असल में, आप एक कर रहे थे आवश्यक से कम चलना।
Comments
Post a Comment