haskell - 遍历字符串并用haskell中的子字符串替换单个字符

Question

我正在尝试学习一些 Haskell，但我觉得很难。我遇到了一些问题
当前的项目。这个想法是我必须通过一个字符串并替换某些字符
带有新的子字符串。例如，如果我有一个字符串“FLXF”并且我想替换每个 F
使用名为“FLF”的子字符串，结果应为“FLFLXFLF”。现在我一直在做这个
几个小时的具体问题。我一直在阅读类型、可能派上用场的不同功能( map 、折叠等)，但我还没有解决这个问题。

下面的代码是我尝试过的一些不同的尝试:

apply :: String -> String
apply []     = []
apply (x:xs) = if (x == 'F')
               then do show "Hello"
                       apply xs
               else (apply (xs))

这个例子在这里我只是想在每次遇到'F'时都显示你好，但它显示的只是“”，所以这显然不起作用。我真的不确定 if else 语句是去这里的方式。我还认为功能映射可能会起作用。在这里，我正在考虑的代码可能如下所示:

map (\x y -> if y == 'F' then "FLD" else y) "FLF"

但这给了我一个类型错误。所以你可以看到我迷路了。请原谅我对 Haskell 的了解不足，但我还是新手。我真的希望你们中的一些人能在这里帮助我，或者插入我朝着正确的方向前进。如果我对某些事情不清楚，请随时提出问题。

先感谢您!

约翰

Answer 1

map (\x y -> if y == 'F' then "FLD" else y) "FLF"

这几乎是对的。

首先...为什么函数需要两个参数？

map (\y -> if y == 'F' then "FLD" else y) "FLF"

剩下的类型错误是因为 then分支给出 String ，但 else分支给出 Char (两个分支必须各自给出相同类型的值)。所以我们将 else分支给一个 String相反(回想一下 String 是 [Char] 的同义词):

map (\y -> if y == 'F' then "FLD" else [y]) "FLF"

现在的问题是这给了你一个 [String]值而不是 String .所以我们将所有这些字符串连接在一起:

concat (map (\y -> if y == 'F' then "FLD" else [y]) "FLF")

concat 这个组合和 map很常见，以至于有一个标准函数将它们结合在一起。

concatMap (\y -> if y == 'F' then "FLD" else [y]) "FLF"