Haskell：从字符串列表中删除空格

Question

问题是：编写一个将从字符串中删除前导空格的函数。 示例： cutWhitespace [" x","y"," z"]预期答案： ["x","y","z"]

继承人我所拥有的：

cutWhitespace (x:xs) = filter (\xs -> (xs /=' ')) x:xs

这将返回["x", " y"," z"]当输入为[" x"," y", " z"] 。 为什么忽略第二和第三个字符串中的空格，我该如何解决？

我们被允许使用高阶函数，这就是我实现过滤器的原因。

Answer 1

OP cutWhitespace函数仅对第一个字符串起作用的原因是由于运算符优先级，它实际上是这个函数：

cutWhitespace (x:xs) = (filter (\xs -> (xs /=' ')) x) : xs

在这里，我将括号放在身体的大部分周围，以明确它的评估方式。 filter仅应用于x ， x是输入列表的第一个元素; 在示例输入" x" 。

如果您按照给定的方式过滤" x" ，则会得到"x" ：

Prelude> filter (\xs -> (xs /=' ')) " x"
"x"

cutWhitespace的最后一件事就是cutWhitespace列表的其余部分（ [" y", " z"] ）并将其收入"x" ，以便它返回["x"," y"," z"] 。

为了解决这个问题，你可以编写函数，实现字符串列表是一个嵌套的字符列表，即[[Char]] 。

作为警告，在(x:xs)上进行模式匹配而不在[]上匹配是危险的，因为它在空列表上会失败。

Answer 2

关于如何从字符串中删除前导空格的问题，您可以通过简单地对字符串执行dropWhile来完成：

deleteLeadingWhitespace = dropWhile (\c -> c == ' ')

如果你考虑其他事情“空白”，你应该更聪明。 例如，您可以使用Data.Char中定义的“isSpace”函数。

从您的示例数据看，您似乎正在尝试为字符串列表执行此操作，在这种情况下，您可以将dropWhile映射到数组：

map deleteLeadingWhitespace

你正在采取的过滤方法有点危险，因为即使你按照你认为应该做的那样，它也会删除所有空格，而不仅仅是前导空格。

Answer 3

我建议使用isSpace :: Char -> Bool ，而不是编写一个检查字符是否为空格的自定义函数。 此函数不仅返回空格（ ' ' ）的True ，而且返回新行（ '\\n' ），回车符（ '\\r' ），制表符（ '\\t' ），垂直制表符（ '\\v' ）和换页（ '\\f' ）。 通常最好使用这些功能，因为忘记某些情况的几率较低。

因此，我们可以删除单个字符串的间距：

dropWhile isSpace

因此，在哪里我们dropWhile以这样的方式，所有chacters其中isSpace 。

然后，我们可以使用此过滤器执行映射，以过滤所有字符串中的空格，例如：

import Data.Char(isSpace)

cutWhitespace = map (dropWhile isSpace)