我的问题是，如果我输入一个包含 Hello, today is a Nice Day!! 之类的字符串，我怎样才能去掉空格和标点符号，并将大写字母替换为小写字母？
我知道如何删除它们，但不知道如何替换它们。
还要去掉标点符号。
对不起，我不知道如何处理字符串，只有数字。
testList xs = [if x = [,|.|?|!] then " " | x<-xs]
【问题讨论】：
标签： string list haskell list-comprehension
要去掉标点符号，您可以使用像这样的过滤器
[x | x<-[1..10], x `mod` 2 == 0]
您使用的“如果”不会过滤。将 if 放在列表推导的“地图”部分只会在两个选项之间进行选择，但您无法将它们过滤掉。
至于将事物转换为小写，它与您已经可以在数字中实现的技巧相同：
[x*2 | x <- [1..10]]
【讨论】：
mod x 2 或x ``mod`` 2。和1 + 2或(+) 1 2几乎一样
`\`` -> `
我已经很久没有在 Haskell 中编写代码了，但是下面应该删除无效字符（用空格替换它们）并将字符从大写转换为小写：
import Data.Char
replace invalid xs = [if elem x invalid then ' ' else toLower x | x <- xs]
另一种方法：
repl invalid [] = []
repl invalid (x:xs) | elem x invalid = ' ' : repl invalid xs
| otherwise = toLower x : repl invalid xs
您可以像这样调用replace（或repl）函数：
replace ",.?!" "Hello, today is a Nice Day!!"
上面的代码会返回：
"hello today is a nice day "
编辑：我在 Haskell 中使用来自 Data.Char 的 toLower 函数，但如果你想自己编写，请在 Stack Overflow 上查看。以前有人问过这个问题。
【讨论】：
这是一个没有导入模块的版本，使用 fromEnum 和 toEnum 来选择允许哪些字符：
testList xs =
filter (\x -> elem (fromEnum x) ([97..122] ++ [32] ++ [48..57])) $ map toLower' xs
where toLower' x = if elem (fromEnum x) [65..90]
then toEnum (fromEnum x + 32)::Char
else x
OUTPUT:
*Main> testList "Hello, today is a Nice Day!!"
"hello today is a nice day"
对于无模块替换功能，这样的事情可能会起作用：
myReplace toReplace xs = map myReplace' xs where
myReplace' x
| elem (fromEnum x) [65..90] = toEnum (fromEnum x + 32)::Char
| elem x toReplace = ' '
| otherwise = x
OUTPUT:
*Main> myReplace "!," "Hello, today is a Nice Day!! 123"
"hello today is a nice day 123"
【讨论】：
你会在Data.Char找到你需要的功能：
import Data.Char
process str = [toLower c | c <- str , isAlpha c]
虽然个人认为函数组合的方式比较清晰：
process = map toLower . filter isAlpha
【讨论】：
import Data.Char
如果要将标点符号转换为空格并将字符从大写转换为小写：
testList xs = [if x `elem` ",.?!" then ' ' else toLower x | x<-xs]
例如：testList "TeST,LiST!" == "test list "
如果要删除标点符号并将字符从大写转换为小写：
testList2 xs = [toLower x | x<-xs, not (x `elem` ",.?!")]
示例：testList2 "Te..S,!t LiS?T" == "test list"
如果不想或者不能导入Data.Char，这是toLower的一个实现：
toLower' :: Char -> Char
toLower' char
| isNotUppercase = char -- no change required
| otherwise = toEnum (codeChar + diffLowerUpperChar) -- char lowered
where
codeChar = fromEnum char -- each character has a numeric code
code_A = 65
code_Z = 90
code_a = 97
isNotUppercase = codeChar < code_A || codeChar > code_Z
diffLowerUpperChar = code_a - code_A
【讨论】：
使用应用样式
《Learn You a Haskell for Great Good!》一书中的一段文字引述：
在列表中使用 applicative 样式通常可以很好地替代 列出理解。在第二章中，我们希望看到所有 [2,5,10] 和 [8,10,11] 的可能产品，所以我们这样做了：
[ x*y | x <- [2,5,10], y <- [8,10,11]]
我们只是从两个列表中提取并在它们之间应用一个函数 元素的每一种组合。这可以在应用程序中完成 风格也是：
(*) <$> [2,5,10] <*> [8,10,11]
这对我来说似乎更清楚，因为更容易看出我们只是 在两个非确定性计算之间调用 *。如果我们想要所有 这两个列表中超过 50 个的可能产品，我们只是 做：
filter (>50) $ (*) <$> [2,5,10] <*> [8,10,11]
-- [55,80,100,110]
【讨论】：