Discussion :

[bourdaillet]

Bonjour a tous

j'ai un projet a realiser sous emacs en lisp et je souhaiterais savoir comment enlever toutes les parenthèses dans une liste. Par exemple:
( je (voudrais (enlever) des) parentheses) deviendrait:
(je voudrais enlever des parentheses)
Merci d'avance et @ +

[Trap D]

Salut
J'ai extrait la liste des atomes et je les concatène avec append en ayant soin de les renvoyer sous forme de liste.
Teste ça qui fonctionne avec CLisp:

Code :

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

1
2
3
4
5
(defun OteParentheses(a)
  (if (null a)
      ()
      (if (consp a) (append (OteParentheses (car a)) (OteParentheses (cdr a))) (list a))
))

Ceci dit, il y a peut-être plus simple, il y a longtemps que j'ai fait du Lisp

[bourdaillet]

Merci beaucoup pour votre réponse.

[Trap D]

Salut

En fouillant un peu, j'ai trouvé quand même mieux :

Code :

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

1
2
3
4
(defun OteParentheses(a)
  (if a
      (if (consp a) (append (OteParentheses (car a)) (OteParentheses (cdr a))) (list a))
))