Auswechslungen in Common Lisp

Question

Ich versuche, eine Funktion mit zwei Argumenten dieser Art zu schreiben:

substitutions (list_one, list_two) 

list_one hat immer dieses Formular (Buchstaben kann die Eingabe ändern sich entsprechend):

(1 ((1 2 ((1 2 r) (3 2 t) (4 3 c))) (3 4 ((5 6 y) (5 7 i))))) 

list_two hat immer dieses Formular (Zahlen können entsprechend der Eingabe aus):

(2 3 4 5 6) 

ich möchte in thi ersetzen s weg:

r-> 2 
t -> 3 
c -> 4 
y -> 5 
i -> 6 

Können Sie mir bitte helfen?

Answer 1

Eine nicht so effiziente Lösung besteht darin, zuerst eine Liste aller Buchstaben in der ersten Baumstruktur (der ersten Liste) und dann LOOP über die Ergebnisse zu finden, die wiederholt SUBST aufrufen.

Um die Liste der nicht-numerischen Atome in der ersten Liste (die "Buchstaben") zu finden, müssen Sie die Baumstruktur (die erste Liste) sowohl auf der ERSTEN als auch auf der REST-Liste durchlaufen.

Ich hoffe, es hilft.

MA

Answer 2

Wenn die Listen richtigen sind, können Sie sie mit dem loop Makro durchlaufen und die Argumente in der zugänglichen freie Variable Pop-off:

(defun template-replace (template replacements) 
    (labels ((iterate (template) 
      (loop :for element :in template 
        :collect 
        (cond ((consp element) (iterate element)) 
         ((symbolp element) (pop replacements)) 
         (t element))))) 
    (iterate template))) 


(template-replace '(1 rep (4 rep (9 rep)) rep) '(foot inch mm multiplied)) 
; ==> (1 foot (4 inch (9 mm)) multiplied)