• Soluciones en la Wiki: estado.
• Contar frecuencia de palabras.
• Como va a ser el parcialito 3 en máquina.
• Ejercicios.

Nos proponemos hacer un programa funcional que cuente la frecuencia de las ocurrencias de palabras.

frecuencia :: [Palabra] -> [(Palabra,Int)]

Main> frecuencia ["hola","que","hola"]
[("hola",2),("que",1)]

Donde Palabra es un sinónimo de tipo, en este caso de un String, y sirve para mejorar la legibilidad del código.

type Palabra = String

Para hacer más fácil el uso de esta función tomamos de Haskell The Craft of Functional Programming por Simon Thompson, la definción de una función que parte una cadena en palabras.

espacio :: [Char]
espacio = ['\n','\t',' ']

esta :: Eq a => a -> [a] -> Bool
-- Definirlo!

-- Tambien podemos escribirlo como tomaPalabra :: [Char] -> [Char]
tomaPalabra :: String -> String
tomaPalabra [] = []
tomaPalabra (x:xs)      | esta x espacio = []
                        | otherwise      = x : tomaPalabra xs


tiraPalabra :: String -> String
tiraPalabra [] = []
tiraPalabra (x:xs)      | esta x espacio = x:xs
                        | otherwise      = tiraPalabra xs


tiraEspacio :: String -> String
tiraEspacio [] = []
tiraEspacio (x:xs)      | esta x espacio = tiraEspacio xs
                        | otherwise      = x:xs

-- Declaracion de tipos
type Palabra = String

partirPalabras :: String -> [Palabra]
partirPalabras st = partirPalabras' (tiraEspacio st)

partirPalabras' :: String -> [Palabra]
partirPalabras' [] = []
partirPalabras' st = (tomaPalabra st) : partirPalabras' (tiraEspacio (tiraPalabra st))

Para probar ejemplos más largos podemos agregar una función que dado el nombre de un archivo, devuelve un String con ese archivo (tomado de EasyIO.hs del curso Introductory Functional Programming for Physics Students )

Para obtener textos largos interesantes está el Proyecto Gutemberg-Español donde tenemos muchos libros que ya no tienen derecho de copia.
Por ejemplo están Cuentos de Amor de Locura y de Muerte de Horacio Quiroga y El Gaucho Martín Fierro de José Hernandez.

Hay que tener cuidado con la codificación pues no todas funcionan.
Por ejemplo UTF8 es una codificación posible: Martín Fierro en UTF8.

• Definir la función esta : Eq a ⇒ a → [a] → Bool, donde esta x xs decide si el elemento x está en la lista xs (ver práctico 10).
• Definir la función frecuencia :: [Palabra] → [(Palabra,Int)], que devuelve la frecuencia de cada palabra.

Puede ser útil definir la función agregarOcurrencia :: Palabra → [(Palabra,Int)] → [(Palabra,Int)] que dada una palabra y una lista de frecuencias, suma esta palabra a la lista de frecuencias.
Por ejemplo

agregarOcurrencia "que" [("hola",2), ("que",1)] = [("hola",2), ("que",2)]
agregarOcurrencia "hola" [] = [("hola",1)]
agregarOcurrencia "que" [("hola",2)] = [("hola",2), ("que",1)]