Empiezan con mayúscula
Enunciado
|
1 2 3 4 5 |
-- Ejercicio. Definir, por composición, la función -- conMayuscula :: String -> Int -- tal que (conMayuscula cs) es el número de palabras de cs que empiezan -- con mayúscula. Por ejemplo. -- conMayuscula "Juan vive en Sevilla o en Huelva" == 3 |
Soluciones
|
1 2 3 4 |
import Data.Char conMayuscula :: String -> Int conMayuscula = length . filter (isUpper . head) . words |