En la practica de este año (2015) 'nonogramas' hay un juego de test adicional 'NonogramasPruebasPicturePuzzle.hs' para realizar una comprobación sobre una lista de 50 nonogramas.
He añadido algunas funciones para, además de comprobar el funcionamiento, poder visualizar los nonogramas generados.
Adjunto el código,
-----------------------------------------------
-- FUNCIONES EXTRA PARA VISUALIZAR LAS FASES --
-----------------------------------------------
verNonogramas :: [Char]
verNonogramas = procesaNonograma 1 getNonograma
procesaNonograma :: Int -> [Nonograma] -> [Char]
procesaNonograma _ [] = ""
procesaNonograma n (x:xs) = "Dibujo : " ++ (show n) ++ "\n\n" ++ resuelveNonograma x ++ (procesaNonograma (n+1) xs)
getNonograma :: [Nonograma]
getNonograma = map creaNonograma fasesPicPuz
Como siempre para que interprete los saltos de página llamamos a la función con putStr...
putStr verNonogramas
Culex.
Estoy con esta práctica y no tengo ni idea como hacer el la función generaFilas y utilizar la dichosa función backtracking que te proporcionan. Ni en los ejercicios del libro ni el alf encuentro algún ejercicio similar para hacerme una idea de como empezar. La idea que tengo es generar un árbol con todas las posibles combinaciones... Tiene alguna documentación o problemas para hacerme una idea de cómo empezar?
ResponderEliminarUn saludo
Hola Fernando,
ResponderEliminarA mi me ayudo mucho ver la practica del año pasado "sumas". La subiré al blog y a ver si te sirve a ti.
Un comentario, solo tienes que crear un nivel del árbol en cada llamada recursiva, no todo el árbol.
Un saludo.