lisp - Common Lisp 中的替换

Question

我正在尝试编写一个带有两个此类参数的函数:

substitutions (list_one, list_two)

list_one 总是这种形式(字母可以根据输入改变):

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

list_two 总是这种形式(数字可以根据输入改变):

(2 3 4 5 6)

我想这样替换:

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

你能帮帮我吗？

Answer 1

一个不太有效的解决方案是首先找到第一个树结构(第一个列表)中所有字母的列表，然后循环遍历重复调用 SUBST 的结果。

要在第一个列表(“字母”)中找到非数字原子的列表，您需要遍历在列表的第一个和其余部分重复出现的树结构(第一个列表)。

希望对您有所帮助。

马