Haskell 和正则表达式 - 为什么我的功能消除冗余空间不起作用?
import Text.Regex
eliminateRedundantSpaces text =
subRegex (mkRegex "\\s+") text " "
Text.Regex
使用Posix 正则表达式,并且没有\s
定义缩写(这是许多其他实现采用的 perl 扩展)。相反,您可以使用[:space:]
字符组,例如:
eliminateRedundantSpaces text =
subRegex (mkRegex "[[:space:]]+") text " "