clojure - 替换序列中的值

Question

我在创建一个替换序列中所有出现的值的函数时遇到问题。

示例：将“a”替换为“z”；输入：

((a b) f ((a b c) (e r) a) a)

预期输出：

((z b) f ((z b c) (e r) z) z)

有任何想法吗？

Answer 1

prewalk-replace如果您严格将一个值交换为另一个值，则比@mobyte 的答案稍微简单一些：

(def thing '( (a b) f ( (a b c) (e r) a ) a ))

(use '[clojure.walk :only [prewalk-replace]])

(prewalk-replace {'a 'z} thing)
; ((z b) f ((z b c) (e r) z) z

Answer 2

(use '[clojure.walk :only (postwalk)])

(postwalk #(if (= % 'a) 'z %) '( (a b) f ( (a b c) (e r) a ) a ))
-> ((z b) f ((z b c) (e r) z) z)