José A. AlonsoEl recorrido en ZigZag de una matriz consiste en pasar de la primera fila hasta la última, de izquierda a derecha en las filas impares y de derecha a izquierda en las filas pares, como se indica en la figura.
/ \
| 1 -> 2 -> 3 |
| | |
| v |
| 4 <- 5 <- 6 | => Recorrido ZigZag: [1,2,3,6,5,4,7,8,9]
| | |
| v |
| 7 -> 8 -> 9 |
\ / |
Definir la función
recorridoZigZag :: Matrix a -> [a] |
tal que (recorridoZigZag m) es la lista con los elementos de la matriz m cuando se recorre esta en ZigZag. Por ejemplo,
λ> recorridoZigZag (fromLists [[1,2,3],[4,5,6],[7,8,9]]) [1,2,3,6,5,4,7,8,9] λ> recorridoZigZag (fromLists [[1,2],[3,4],[5,6],[7,8]]) [1,2,4,3,5,6,8,7] λ> recorridoZigZag (fromLists [[1,2,3,4],[5,6,7,8],[9,10,11,12]]) [1,2,3,4,8,7,6,5,9,10,11,12] λ> recorridoZigZag (fromList 5 4 "Cada paso es la meta") "Cadasap o es al meta" λ> recorridoZigZag (fromList 4 5 "Cada paso es la meta") "Cada osapes laatem " λ> recorridoZigZag (fromList 10 2 "Cada paso es la meta") "Caad psao se l ameat" λ> recorridoZigZag (fromList 2 10 "Cada paso es la meta") "Cada paso atem al se" |
Soluciones
import Data.Matrix (Matrix, toLists, fromLists, fromList) recorridoZigZag :: Matrix a -> [a] recorridoZigZag m = concat [f xs | (f,xs) <- zip (cycle [id,reverse]) (toLists m)] |