- Escribe en tu consola la palabra
make
- Seguidamente
./haskinator
- (Opcional) Si quieres borrar todos los archivos que has compilado, puedes escribir en la consola
make clean
- NOTA : al ejecutar
make clean, se va a borrar todos los archivos .hi y .o que se han creado en el paso 1, inclusive el programa ejecutablehaskinatorpor lo que el programa no va a existir luego de hacer este paso.
El deriving(Read, Show) nos da el siguiente formato para los Oraculos:
- Prediccion = Prediccion "prediccion asociada"
- Pregunta = Pregunta "pregunta asociada" (Data.Map.fromList[("respuesta 1",Oraculo),("respuesta 2",Oraculo)...])
El objetivo del main es permitir una interacción por consola con el usuario para adivinar predicciones.
Se implementa lo siguiente:
- Se imprimen algunos mensajes de bienvenida para presentar el contexto al usuario.
- Se crea un oráculo vacío llamando a crearOraculo "".
- Se define una función
interactuarque se encarga de la interacción principal utilizando el oráculo creado.
interactuar muestra un menú de opciones y pide al usuario elegir una. Según la opción ingresada, ejecuta una acción diferente:
- Crear un nuevo oráculo
- Predecir
- Persistir
- Cargar
- Consultar pregunta crucial
- Estadísticas.
- Salir
Si la opción es inválida, muestra error y vuelve a interactuar.
interactuar usa recursión para permitir múltiples interacciones en un loop.
Inicia el proceso de predicción. Verifica si el oráculo es una predicción o pregunta y llama a proponerPred o proponerPreg respectivamente. En lo siguiente se detalla las funciones auxiliares que se utilizaron para implementar predecir
esPrediccion: Devuelve true si el oráculo es una Prediccion.proponerPred: Propone la predicción al usuario y según su respuesta, termina o pide la predicción correcta. En caso de agregar la predicción correcta al oráculo se verifica que sea única.proponerPreg: Propone la pregunta al usuario. Según su respuesta, navega al sub-oráculo o pide una nueva opción/respuesta y la agrega al oráculo.printOp: Imprime las opciones de una pregunta separadas por /.insertarOpcion: Agrega una nueva opción y respuesta al oráculo correspondiente.printPredYaExiste: Imprime un mensaje de predicción repetida y que por lo tanto no se puede agregarlo al oráculo.
También se utilizaron las funciones obtenerCadena y printOpInvalida que lo detallaremos más adelante.
La función obtenerCadena recibe un oráculo (tipo Oraculo) y una cadena de texto correspondiente a una predicción. Devuelve un valor de tipo Maybe [(String, String)].
La implementación de ObtenerCadena es similar al DFS (Depth First Search) para grafos. Asi mismo, esta función utiliza una función auxiliar buscar para recorrer recursivamente la estructura del oráculo y construir la lista de tuplas (pregunta, opción) que corresponden al camino hacia la predicción dada. Además, para llamar a la función auxiliar buscar se pasa el oráculo, la predicción y una lista vacía para el camino. Luego, lo que hace buscar es que:
- Caso base: si recibe una Prediccion, verifica si coincide con la predicción buscada.
- Si coincide, devuelve Just el camino.
- Si no coincide, devuelve una lista vacía [].
- Si recibe una Pregunta, busca en las opciones a ver si alguna coincide con la predicción.
- Si encuentra coincidencia, llama recursivamente a
buscarsobre ese valor de predicción, agregando la pregunta actual y la opción elegida al camino. - Si no encuentra, llama recursivamente a buscar sobre cada opción, concatenando los resultados.
- Si encuentra coincidencia, llama recursivamente a
Luego te terminar de ejecutar buscar, se hace pattern matching sobre el resultado:
- Si es Nothing, devuelve Nothing.
- Si es Just camino, devuelve esto mismo.
Imprime un mensaje de que la opción es inválida en caso de que la opción que introdujo el usuario no coincida con ninguna de las opciones propuestas.
Pide al usuario que ingrese el nombre del archivo donde se va a guardar el oráculo. Se intenta escribir, si no se puede, se ejecuta una excepción y se imprime un mensaje explicativo. Si se puede, se escribe el oráculo en el archivo y se imprime un mensaje de éxito.
Pide al usuario que ingrese el nombre del archivo donde se va a cargar el oráculo. Se intenta leer, si no se puede se ejecuta una excepción y se imprime un mensaje explicativo y se retorna un oráculo vacío. Si se puede leer, se hace read con el contenido del archivo y si el contenido del archivo representa un oráculo se retorna dicho oraculo, en caso contrario, se produce una excepción y se imprime un mensaje explicativo y se retorna un oráculo vacío.
Recibe dos listas de tuplas correspondientes al camino en el arbol del oraculo de dos predicciones. Se combinan las dos listas en una lista de pares de preguntas y opciones mediante zip. Se recorre la lista de pares de preguntas y opciones hasta que se encuentre una pregunta que no coincida, en ese momento se retorna la ultima pregunta junto con las opciones de esa pregunta que llevan hacia las predicciones.
Pide al usuario dos cadenas correspondientes a dos predicciones. Se obtienen los caminos de cada predicción mediante obtenerCadena. En caso de existir dichos caminos se llama a consultarAncestroComunMasBajo con los caminos obtenidos. Se imprime la pregunta crucial y las opciones que llevan a cada predicción.
Recibe un Ooraculo y, si el mismo es una Predicción, devuelve el String con dicha predicción.
Recibe un Oraculo y, si el mismo es una Pregunta, devuelve el String que contiene la pregunta a la que se refiere dicho oraculo.
Recibe un Oraculo y, si el mismo es una Pregunta, devuelve el tipo de dato Opciones asociado a dicha pregunta. Para ello llama a la función MaybeOraculo.
-MaybeOraculo: Recibe un Maybe Oraculo que proviene de una llamada a la función lookup del modulo Data.Map y devuelve el Oraculo asociado si existe.
Recibe un Oraculo y un String,que corresponde a una respuesta, y, si el Oraculo es una Pregunta, este devuelve el Oraculo asociado a dicha respuesta.
Recibe un Oraculo y calcula el máximo, el mínimo y el promedio de preguntas necesarias para alcanzar una Prediccion. Lo hace llamando a varias funciones auxiliares. La manera en que obtenerEstadistica funciona es la siguiente:
-
auxEstadistica: Su función es manejar la lista de Oraculos y el contador de preguntas. Ella se encarga de enviar esta lista adivOra, para que las opciones de las Preguntas sean expandidas, ya que se encuentran en el tipo fromList, luego lleva esta nueva lista acalcularEstadisticacon el contador. Cuando sale decalcularEstadistica, elimina las predicciones con removePred porque estas ya fueron contabilizadas y comienza el proceso otra vez. De esta manera, se ve el Oraculo como un objeto con capas, siendo cada capa los contenidos de las opciones de una Pregunta y, solo cuando sale de esta capa, se aumenta el contador de preguntas. -
divOra: Esta función se encarga de devolver la capa siguiente del Oraculo, si encuentra una Predicción, la mantiene, pero si encuentra una Pregunta, concatena a la lista las Opciones que contiene mediante la función deData.Mapelems. -
removePred: Si esta función se llama, entonces las predicciones, en la lista de Oraculos que se le pasa, ya fueron contabilizadas en la lista de Integer que guarda la cantidad de preguntas necesarias para alcanzar una respuesta. Luego, como no se necesitan, se eliminan para que las Preguntas pasen a expandirse. -
calcularEstadistica: Es la que guarda en una lista de Integer el número de preguntas necesarias para llegar a una respuesta. Solo guarda dicho número si se llega a una predicción, pero si se llega a una pregunta se guarda el 0 que luego se elimina.
Luego, cuando se sale de auxEstadistica, volvemos a obtenerEstadistica para el sacar el maximo, el minimo y el promedio. Pero, primero, necesita eliminar los ceros y esto lo hace con removeCero. Una vez hecho esto, llama a intToDouble ya que se necesita un Double para calcular el promedio con promedioCalc; con roundTo, se redondea el resultado del promedio a un número con 5 decimales. Por último, se consigue el máximo y el minimo con las funciones maximum y minimum.