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.
