Haskell在字符串中转置字符

Question

我正在尝试编写以下形式的函数：

f :: String -> [String]
f st = ...

它应该在String中显示char的所有可能的转置。 例如：

ghci> f "string"
["tsring","srting","stirng","strnig","strign"]

如您所见，它只应将下一个字符与当前字符转换。 我目前有：

f :: String -> [String]
f [] = []
f (x:xs) = ...

但我不知道该如何真正转换字符。

Answer 1

f :: String -> [String]
f (x:y:xs) = (y:x:xs) : map (x:) (f (y:xs))
f      xs  = []

注意， f [x]返回[] ，但是如果需要的话，很容易修复。