He actualizado las soluciones del ejercicio Empiezan con mayúscula cuyo enunciado es

Definir 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