Lisp Warnung: xx ist weder deklariert noch gebunden, es wird behandelt, als ob es SPEZIAL erklärt wurde

Question

Ich bin neu zu lisp und schreibe ein paar einfache Programme, um damit vertrauter zu werden. Eines der Dinge, die ich mache, ist das Schreiben einer rekursiven und iterativen Version einer faktoriellen Methode. Ich bin jedoch auf ein Problem gestoßen und kann es anscheinend nicht lösen.

sah ich einen ähnlichen Fehler bei Lisp: CHAR is neither declared nor bound aber eine Lösung nicht wirklich erreicht wurde, anders als die OP erkannte, dass er einen „Tippfehler“ gemacht. In der REPL kann ich die setf-Funktion verwenden und es funktioniert gut. Ich benutze auch LispBox mit Emacs. Ich würde mich über Vorschläge freuen!

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

WARNUNG in IT-FACT: RESULT weder deklariert noch gebunden, wird sie behandelt werden, als ob es SPECIAL deklariert wurden.

Answer 1

Sie müssen die Variable ‚Ergebnis‘ binden - ‚lassen‘, beispielsweise mit - bevor es zu benutzen beginnen:

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

Für weitere Details, die Sie wollen vielleicht this lesen ...

Answer 2

In Lisp müssen lokale Variablen explizit mit LET oder anderen Formen deklariert werden, die lokale Variablen erstellen. Das unterscheidet sich von z.B. Python oder JavaScript, wobei die Zuweisung zur Variablen die Variable im aktuellen lexikalischen Bereich erstellt.

Ihr Beispiel kann wie folgt neu geschrieben werden:

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

Ein Wegthema Kommentar: Es gibt keinen Punkt schließende Klammern in separaten Zeilen in Putten.

Answer 3

Es gibt ein paar Dinge falsch oder nicht so gut Lisp-Stil:

(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 

Eine mögliche Version:

(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