用各自的替换替换多个子串

Question

我有一个String，它包含多个${...} 形式的标签（其中... 可以是任何不包含} 字符的字符串），例如foo ${bar} baz ${qux}。

我想替换这些标签，但要做到这一点，我需要以下形式的函数：

replace :: [String] -> [String] -> String -> String
--           tags    replacements  target    result
replace ["${bar}", "${qux}"] ["abc", "def"] "foo ${bar} baz ${qux}" == "foo abc baz def"

（当给定数组作为参数时，这类似于 PHP 的 str_replace 函数。）

我在任何包中都找不到这样的替换功能。有没有这样的功能，如果没有我怎么写（指向正确的方向就够了；我正在学习Haskell）？

Answer 1

作为单行：

Prelude Data.Text> Prelude.foldr (uncurry Data.Text.replace) "foo ${bar} baz ${qux}" $ Prelude.zip ["${bar}", "${qux}"] ["abc", "def"]
"foo abc baz def"

换句话说：

replace as bs x = Prelude.foldr (uncurry Data.Text.replace) x $  Prelude.zip as bs