Ciencias de la Computación FAMAF

Herramientas de usuario

Herramientas del sitio

Traza:
introalg:taller4

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Ambos lados, revisión anteriorRevisión previa
introalg:taller4 [2006/05/30 15:03] – nicolaswintroalg:taller4 [2018/08/10 03:03] (actual) – editor externo 127.0.0.1
Línea 1: Línea 1:
 +====== Clase 4 ======
  
 +===== Plan para hoy =====
 +  * Soluciones en la Wiki: estado.
 +  * Contar frecuencia de palabras.
 +  * Ejercicios.
 +  * Como va a ser el parcialito 3 en máquina.  
 +
 +===== Soluciones en la Wiki del Práctico 8: estado ======
 +
 +  * En [[introalg:rincon|Wiki de Scripts Haskell]] ya tenemos casi todos los ejercicios resueltos.
 +  * Probarlos, criticarlos, mejorarlos.
 +  * Hay muchas resoluciones para cada ejercicio, mirarlas y compararlas.
 +
 +===== Clase =====
 +
 +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 [[http://www.cs.kent.ac.uk/people/staff/sjt/craft2e/|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))
 +
 +Todas estas definciones las metemos en el archivo ''frec.hs''.
 +
 +Notamos:
 +  * La definición de una lista de //caracteres// ''Char''.
 +  * Las tres funciones son muy parecidas en su forma y podríamos **generalizar** con ''tomarHasta'' y ''tirarDesde''.
 +
 +Una vez definida la función ''esta'' podemos probar las funciones.
 +
 +  Main> tomaPalabra "Despues de tres dias"
 +  "Despues"
 +  Main> tiraEspacio "Despues de tres dias"
 +  "Despues de tres dias"
 +  Main> tiraEspacio "           Despues de tres dias"
 +  "Despues de tres dias"
 +  Main> tiraPalabra "           Despues de tres dias"
 +  "           Despues de tres dias"
 +  Main> tiraPalabra "Despues de tres dias"
 +  " de tres dias"
 +
 +
 +  Main> partirPalabras "hola"
 +  ["hola"]
 +  Main> partirPalabras "hola que tal"
 +  ["hola","que","tal"]
 +  Main> partirPalabras "              hola que            tal              "
 +  ["hola","que","tal"]
 +
 +Finalmente tenemos que definir la funcion que computa la frecuencia
 +
 +  frecuencia :: [Palabra] -> [(Palabra,Int)]
 +
 +Por ejemplo
 +
 +  Main> frecuencia ["hola","que","hola"]
 +  [("hola",2),("que",1)]
 +  Main> frecuencia (partirPalabras "Despues de tres dias Nebel decidio aclarar de una vez ese estado de osas, y aprovecho para ello un momento en que Lidia no estaba.")
 +  [("estaba.",1),("no",1),("Lidia",1),("que",1),("en",1),("momento",1),("un",1),("ello",1),("para",1),("aprovecho",1),("y",1),("osas,",1),("de",3),("estado",1),("ese",1),("vez",1),("una",1),("aclarar",1),("decidio",1),("Nebel",1),("dias",1),("tres",1),("Despues",1)]
 +
 +
 +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 [[http://www.cs.chalmers.se/~rjmh/Teaching/Fysiker/EasyIO.hs|EasyIO.hs]] del curso //Introductory Functional Programming for Physics Students// 8-O) \\
 +Este código debe estar **al inicio del script**.
 +
 +  import IOExts
 +  
 +  leeArchivo :: String -> String
 +  leeArchivo nombre = unsafePerformIO$ readFile nombre
 +
 +Para obtener textos largos e interesantes tenemos el [[http://www.gutenberg.org/browse/languages/es|Proyecto Gutemberg-Español]] donde hay muchos libros que ya no tienen derecho de copia. \\
 +Por ejemplo están [[http://www.gutenberg.org/files/13507/13507.txt|Cuentos de Amor de Locura y de Muerte]] de Horacio Quiroga y [[http://www.gutenberg.org/etext/14765|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: {{:introalg:14765-utf8.txt|Martín Fierro en UTF8}}, y calculamos la lista de frecuencias.
 +
 +  Main> frecuencia (partirPalabras (leeArchivo "14765-utf8.txt"))
 +
 +===== Ejercicios =====
 +
 +  * 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).
 +  * Probar las funciones ''tomaPalabra'', ''tiraEspacio'', ''tiraPalabra'' y finalmente ''partirPalabras''.
 +  * 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)]
 +
 +  * (*) Modificar la función ''ordenar'' para que ordene una lista de pares ''[(Palabra,Int)]'' en su segunda coordenada, y utilizando ''tomar'', obtener las 10 palabras más usadas del //corpus//.
 +  * (* *) Modificar el programa para que tome un **parámetro de entrada** con el nombre del archivo y devuelva la tabla de frecuencias ordenadas de mayor a menor.
 +
 +===== ?Como será el parcialito 3 en máquina? =====
 +  * Ejercicios sencillos del tipo que estuvimos trabajando en clase.
 +  * Se evalua la corrección de la solucion y tienen que explicar como funciona.
 +  * Como siempre se (A)prueba o (N)Desaprueba.
 +  * Cada uno en su turno.