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 :
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)) ) (push (read-from-string ligne) liste) ) (close alpha_code) (print (reverse liste)) )
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) )
Partager