2

シーケンス内のすべての値を置き換える関数の作成に問題があります。

例: 'a' を 'z' に置き換えます。入力:

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

期待される出力:

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

何か案は?

4

2 に答える 2

5

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
于 2012-12-17T19:36:16.103 に答える
1
(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)
于 2012-12-17T18:25:02.623 に答える