Obtenez premier et le dernier atome d'une liste et de les ajouter

Question

Dire que j'ai cette liste

'((c d) (4 6) (m n) (z z)) 

Comment puis-je groupe le premier et le dernier élément de chaque liste intérieure et l'ajouter à la fin pour que ma sortie serait être quelque chose comme ceci:

(c 4 m z z n 6 d) 

Toute aide sera grandement appréciée!

Answer 1

Vous devez construire votre liste à partir de deux extrémités. Je suggère ce qui suit:

1. Créer deux listes de l'existant
2. Mettre les deux nouvelles listes ensemble lorsque la liste d'entrée est vide, l'inversion de la deuxième liste avant de les mettre ensemble.

donc vous devriez vous attendre l'appel de fonction pour ressembler à:

 
(myFunc inputList forwardList willBeBackwardList) 

et quand inputList est vide que vous voulez faire quelque chose comme

 
(append forwardList (reverse willBeBackwardList)) 

(noms de fonctions intégrées exactes variez selon le lisp que vous utilisez).

Answer 2

Voici une façon Clojure (ce qui est un dialecte Lisp):

user=> (def l '((c d) (4 6) (m n) (z z))) 
user=> (concat (map first l) (reverse (map second l))) 
(c 4 m z z n 6 d) 

dépend vraiment de votre problème à ce que la mise en œuvre convient le mieux.