Bonjour à tous,
Je suis nouveau sur lisp and je suis confronté à plusieurs problèmes. J'essaie de lire un fichier textuel et de sauvegarder son contenu dans une liste grâce à un programme lisp mais cela ne marche pas.
Apparemment, la partie loop ne fonctionne pas.
Pouvez-vous m'aider ou me dire ce qui est faux dans ce script?
Merci d'avance pour votre aide.
Code lisp:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 (defun parser () ;Initialisation de la liste dico (setq dico '()) ;Initialisation d'une liste ligne (setq ligne '(hello)) ;Lecture du fichier dico (with-open-file (stream "./dico.txt")) (loop while (not (null ligne)) (setq ligne (read-line str)) (setq dico (cons ligne dico)) ) )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 MotCle01 MotResultat01 MotCle02 MotResultat02 MotCle03 MotResultat03 MotCle04 MotResultat04
Partager