clojure - 在 clojure 中，如何编写应用多个字符串替换的函数？

Question

我想编写一个函数replace-several，它接收一个字符串和一组替换并应用所有替换(其中替换看到先前替换的结果)。

我想到了以下界面:

(replace-several "abc" #"a" "c" 
                       #"b" "l"
                       #"c" "j"); should return "jlj" 

两个问题:

1. 它是 clojure 中最惯用的界面吗？
2. 如何实现这个功能？

备注:要进行单个替换，clojure.string中有replace可用。 .

Answer 1

使用replace、reduce和partition实现@kotarak的建议:

(defn replace-several [content & replacements]
      (let [replacement-list (partition 2 replacements)]
        (reduce #(apply string/replace %1 %2) content replacement-list)))
; => (replace-several "abc" #"a" "c" #"b" "l" #"c" "j")
  "jlj"