Avertissement Lisp: xx n'est ni déclaré ni lié, il sera traité comme s'il avait été déclaré SPECIAL

Question

Je suis nouveau à lisp et j'écris quelques programmes simples pour mieux me familiariser avec lui. Une des choses que je fais est d'écrire une version récursive et itérative d'une méthode factorielle. Cependant, j'ai rencontré un problème et n'arrive pas à le résoudre.

je vis une erreur semblable à Lisp: CHAR is neither declared nor bound mais n'a pas été réellement parvenu à une solution autre que l'OP se rendit compte qu'il a fait une « erreur de frappe ». Dans le REPL, je peux utiliser la fonction setf et cela fonctionne très bien. J'utilise aussi LispBox avec emacs. J'apprécierais toutes suggestions!

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

AVERTISSEMENT IT-FACT: Le résultat est déclaré ni lié, elle sera traitée comme si elle était déclarée spéciale.

Answer 1

Vous devez lier la variable « résultat » - en utilisant « let », par exemple - avant de commencer à l'utiliser:

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

Pour plus de détails, vous pouvez lire this ...

Answer 2

En Lisp, les variables locales doivent être explicitement déclarées avec LET ou d'autres formes qui créent des variables locales. Cela diffère de par exemple. Python ou JavaScript où l'affectation à la variable crée la variable dans la portée lexicale actuelle.

Votre exemple peut être réécrite comme ceci:

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

Un commentaire hors-sujet: il est inutile de mettre entre parenthèses la fermeture sur des lignes distinctes.

Answer 3

Il y a quelques petites choses mal ou pas si bon style Lisp:

(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 

Une version possible:

(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