问题描述
所以我试图在没有导入帮助的情况下编写自己的函数,并且我正在努力拥有一个以相同方式工作的函数。
这是我所拥有的。
toLower'' :: [Char]-> [Char]
toLower'' [] = []
toLower'' (x : xs)
| x `elem` ['a' .. 'z'] = toEnum (fromEnum x + 32) : toLower'' xs
| otherwise = x : toLower'' xs
toupper'' :: [Char] -> [Char]
toupper'' [] = []
toupper'' (x : xs)
| x `elem` ['a' .. 'z'] = toEnum (fromEnum x - 32) : toupper'' xs
| otherwise = x : toupper'' xs
解决方法
toLower''
匹配小写字符而不是大写字符。 (ToUpper''
有效)。固定:
toLower'' :: [Char]-> [Char]
toLower'' [] = []
toLower'' (x : xs)
| x `elem` ['A' .. 'Z'] = toEnum (fromEnum x + 32) : toLower'' xs
| otherwise = x : toLower'' xs