Haskell从字符串中删除字符

Question

我正在尝试编写表格的功能

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

该函数返回通过从str删除一个字符形成的所有字符串的列表。 例如：

ghci> f "stack"
["tack","sack","stck","stak","stac"]

因为String和[Char]是同义词，所以我可以使用索引，但是我知道您应该避免在Haskell中这样做。 除了使用索引，还有更好的方法吗？

Answer 1

您可以像这样使用递归：

f :: [a] -> [[a]]
f [] = []
f (s:ss) = ss : map (s:) (f ss)

Answer 2

乔什·柯克林 （ Josh Kirklin ）的一线解决方案：

f = tail . foldr (\x ~(r:rs) -> (x : r) : r : map (x :) rs) [[]]

Answer 3

也许更容易理解的描述方式是：

gaps :: [a] -> [[a]]
gaps xs = zipWith removeAt [0..] $ replicate (length xs) xs

removeAt i xs = ys ++ zs
    where
        (ys,_:zs) = splitAt i xs

但是实际上，它比其他解决方案要慢。