Discussion :

[MilkyMars]

Bonjour,

J'ai besoin d'aide pour une fonction lisp.

Cette fonction doit lire dans un fichier contenant des codes de caractères (un code par ligne) : voir fichier
Puis construire une liste de ces codes.

Voici ce que j'ai pour le moment mais la fonction renvoie nil : ici

Ainsi que la fonction que j'ai créé en Python pour m'aider : là

Si quelqu'un sait ce qui cloche dans ma fonction cela me permettrait d'avancer un peu.

Merci d'avance !!

Bon en fait c'est bon j'ai fait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
(defun lire-code-en-liste (&aux (liste nil))
  (setq alpha_code (open "alpha_code.txt" :direction :input :if-does-not-exist :error))
  (loop
    (cond
      ((not (setq ligne (read-line alpha_code nil nil))) (return)) )
    (push (read-from-string ligne) liste) )
  (close alpha_code)
  (print (reverse liste)) )

Qui ne modifie pas la liste. Ou bien comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
(defun lire-code-en-liste (&aux (liste nil))
  (setq alpha_code (open "alpha_code.txt" :direction :input :if-does-not-exist :error))
  (loop
    (cond
      ((not (setq ligne (read-line alpha_code nil nil))) (return)) )
    (setq liste (append liste (list (read-from-string ligne)))) )
  (close alpha_code)
  (print liste) )

[jack-ft]

Bon en fait c'est bon j'ai fait ainsi :

Vu que 'liste' est une variable locale que tu construis toi-même, tu peux sans aucun risque la modifier physiquement (avec nreverse ou nconc).

Prends l'habitude de déclarer tes variables locales.

Pour avoir une fonction plus générale:
- passe-lui les données en paramètre,
- imprime plutôt au retour que dans la fonction.

Code lisp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(defun lire-code-en-liste (file &aux (liste nil))
  (let ((alpha_code (open file :direction :input :if-does-not-exist :error))
        ligne)
    (while (setq ligne (read-line alpha_code nil nil))
      (push (read-from-string ligne) liste) )
    (close alpha_code)
    (nreverse liste) ))
 
(print (lire-code-en-liste "alpha_code.txt"))

Ou bien:

Code lisp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(defun lire-code-en-liste (file &aux (liste nil))
  (let ((alpha_code (open file :direction :input :if-does-not-exist :error))
        ligne)
    (while (setq ligne (read-line alpha_code nil nil))
      (setq liste (nconc liste (list (read-from-string ligne)))) )
    (close alpha_code)
    liste ))
 
(print (lire-code-en-liste "alpha_code.txt"))