消除字符串中的连续重复项

Question

我想从字符串中消除连续重复，如f"aaabbbcccdeefgggg"="abcdefgggg"

这是我的密码

f :: String -> String
f "" = ""
f "_" = "_"
f (x : xs : xss)
    | x == xs   = f (xs : xss)
    | otherwise = x : f (xs : xss)

我得到了错误非穷举模式，我想这是第二行的错误，当只剩下1个字符时，程序不知道如何处理。我该怎么修？

Answer 1

或者，如果你不处理那些可能无法处理的事情，你可以让事情变得更简单：

f :: String -> String
f (x:y:xs) | x == y = f (y:xs)
f (x:xs) = x:f xs
f _ = ""

Answer 2

这是对你问题“标题”的回答。

您只需将相等的字母分组，然后取每组中的第一个：

map head $ Data.List.group "aaabbbcccdeefgggg"

为了完整起见，因为你似乎是哈斯克尔的新手，这里有一些细节：

• 数据。列表组“aaabbbccdeefggg”返回[“aaa”、“bbb”、“ccc”、“d”、“ee”、“f”、“gggg”]

Answer 3

“\ucode>模式不匹配任何字符的字符串，它匹配包含下划线的字符串。

您可以使用[\u]作为单例字符串的模式，因此：

f :: String -> String
f "" = ""
f s@[_] = s
f (x : xs : xss)
    | x == xs   = f (xs : xss)
    | otherwise = x : f (xs : xss)

这里我们使用s@捕获一个字符作为s的字符串。

或者我们可以通过以下方式简化：

f :: String -> String
f (x : xs : xss)
    | x == xs   = f (xs : xss)
    | otherwise = x : f (xs : xss)
f s = s