替换Scheme中列表中的元素

Question

我正在Scheme 中寻找一个函数，用一个值替换方程中的元素。

示例： '(+ abca) 与 (1 2 3) 应该给我 '(+ 1 2 3 1)。 （我不想解方程，这只是一个例子）

基本上，我想说 a=1, b=2, c=3

要继续，我提取变量我在另一个列表中的第一个列表。 然后，我收到了另一个列表中的预期值。 现在，我想给变量赋值。

关于我如何继续的任何提示？ 多谢。

Answer 1

您可以使用类似于 ((a 1) (b 2) (c 3)) 的映射“关联列表”。

assq 可以检索匹配对。因此，对于原始列表中的所有内容，您可以使用 assq 查找它，然后替换它。

所以：

  (lambda (ls a-list)
    (map (lambda (x)
           (let ((lookup (assq x a-list)))
             (if lookup
                 (cadr lookup)
                 x)))
         ls)))

将采用一个列表和一个关联列表，并用其替换项（如果有的话）替换原始列表中的所有内容。

Answer 2

这不是 let 要做的吗？

> (let ((a 1) (b 2) (c 3))
     (+ a b c b))
=> 8

如果您不想计算表达式：

> (let ((a 1) (b 2) (c 3))
    `(+ ,a ,b ,c ,a))
=> (+ 1 2 3 1)