Comment éliminer tous les niveaux de listes dans LISP

Possible en double:
How to remove nested parentheses in LISP Comment éliminer tous les niveaux de listes dans LISP

Ceci est ma deuxième question rapide et stupide au sujet LISP, mais je suis un peu coincé. J'ai besoin d'accéder à tous les nœuds d'une liste avec plusieurs niveaux. J'ai besoin de quelque chose comme:

>> (get-symbols '(A (B (C D) E))) 
(A B C D E)

Je ne me soucie pas de la commande. Comment feriez-vous cela? Je préfère l'intuitivité du code plutôt que l'efficacité.

Merci

Source

2010-10-31 jesusiniesta

départ http://stackoverflow.com/questions/2680864/how-to-remove-nested-parentheses-in-lisp –

"entre parenthèses imbriquées". Je n'ai pas pensé de cette façon pour le mettre, c'est pourquoi je n'ai pas trouvé celui-là. Si cela fonctionne pour moi, et je l'espère, devrais-je supprimer cette question? – jesusiniesta

"aplanir les listes imbriquées" correspond à la description appropriée. Votre question est un doublon. Supprimez-le si vous le souhaitez. –

De OnLisp:

(defun flatten (tree) 
    (if (atom tree) 
     (mklist tree) 
    (nconc (flatten (car tree)) 
     (if (cdr tree) (flatten (cdr tree))))))

Source

2010-11-01 13:10:00 Marko

Ce que vous avez besoin est la fonction flatten pour les listes. Le chercher.

Source

2010-10-31 18:30:58

Je ne trouve pas cette fonction dans Common Lisp (j'ai oublié d'indiquer quelle version de Lisp je devais utiliser) – jesusiniesta

(defun get-symbols (lst) 
     (when lst 
      (if (atom lst) (list lst) 
       (append (get-symbols (car lst)) 
         (get-symbols (cdr lst))))))

Source

2010-11-01 12:54:16 Galactus

Comment éliminer tous les niveaux de listes dans LISP

Répondre

Questions connexes