लिस्प चेतावनी: xx न तो घोषित किया गया है और न ही बाध्य है, इसे माना जाएगा जैसे इसे विशेष

Question

मैं lisp के लिए नया हूं और इसके साथ अधिक परिचित होने के लिए कुछ सरल कार्यक्रम लिख रहा हूं। मैं जो चीजें कर रहा हूं उनमें से एक एक फैक्टोरियल विधि का एक पुनरावर्ती और पुनरावृत्ति संस्करण लिख रहा है। हालांकि, मैं एक समस्या में आया हूं और इसे हल करने के लिए प्रतीत नहीं कर सकता।

मैंने Lisp: CHAR is neither declared nor bound पर एक समान त्रुटि देखी लेकिन ओपी के अलावा एक समाधान वास्तव में नहीं पहुंचा था, उसने महसूस किया कि उसने "टाइपिंग गलती" की है। आरईपीएल में मैं setf फ़ंक्शन का उपयोग कर सकता हूं और यह ठीक काम करता है। मैं Emacs के साथ LispBox का भी उपयोग कर रहा हूँ। हम किसी भी सुझाव की सराहना करेंगे! आईटी तथ्य में

(defun it-fact(num) 
    (setf result 1) 
    (dotimes (i num) 
    (setf result (* result (+ i 1))) 
) 
) 

चेतावनी: परिणाम न घोषित है और न ही बाध्य है, यह है कि यह विशेष घोषित किया गया माना जाएगा।

Answer 1

आप चर 'परिणाम' बाध्य करने के लिए की जरूरत है - का उपयोग करते हुए 'चलो', उदाहरण के लिए - यह उपयोग करने के लिए शुरू करने से पहले:

(defun it-fact(num) 
    (let ((result 1)) 
    (dotimes (i num) 
     (setf result (* result (+ i 1)))))) 

आगे विवरण आप this को पढ़ने के लिए चाहते हो सकता है के लिए ...

Answer 2

लिस्प में, स्थानीय चर को स्पष्ट रूप से एलईटी या अन्य रूपों के साथ घोषित किया जाना चाहिए जो स्थानीय चर बनाते हैं। जो कि से अलग है पायथन या जावास्क्रिप्ट जहां चर के लिए असाइनमेंट वर्तमान लेक्सिकल स्कोप में चर बनाता है।

आपका उदाहरण इस तरह फिर से लिखा जा सकता है:

(defun it-fact(num) 
    (let ((result 1)) 
    (dotimes (i num) 
     (setf result (* result (+ i 1)))))) 

एक विषय से हटकर टिप्पणी: वहाँ अलग पंक्ति में बंद करने कोष्ठक डालने का कोई मतलब नहीं है।

Answer 3

कुछ चीजें गलत या इतना अच्छा नहीं लिस्प शैली हैं:

(defun it-fact(num)      ; style: use a space before (
    (setf result 1)      ; bad: variable result is not introduced 
    (dotimes (i num) 
    (setf result (* result (+ i 1)))  ; bad: extra addition in each iteration 
)          ; style: parentheses on a single line 
)          ; bad: no useful return value 

एक संभावित संस्करण:

(defun it-fact (num) 
    (let ((result 1))      ; local variable introduced with LET 
    (loop for i from 1 upto num   ; i starts with 1, no extra addition 
     do (setf result (* result i))) 
    result))        ; result gets returned from the LET