string - 如何在Haskell中将字符串的第一个字母大写并小写其余字母

Question

我必须编写一个函数，将字符串的第一个字母大写，并将字符串的其余部分小写(该字符串包含随机的大写或小写字母)。

到目前为止，我已经设法做到了:

capitalised :: String->String
capitalised [] = []
capitalised x
            | length x == 1 = map toUpper x
            | otherwise = capitalised (init x): map toLower (last x)

和所有其他类型的奇怪功能，我仍然无法弄清楚。

请帮忙!提前发送!

忘了提，问题说明我需要编写一个递归解决方案!

Answer 1

请记住 String只是 [Char] 的类型同义词?在这里，我们利用它:

import qualified Data.Char as Char

capitalized :: String -> String
capitalized (head:tail) = Char.toUpper head : map Char.toLower tail
capitalized [] = []

这是一个递归版本:

capitalized :: String -> String
capitalized [] = []
capitalized (head:tail) = Char.toUpper head : lowered tail
  where
    lowered [] = []
    lowered (head:tail) = Char.toLower head : lowered tail