Recorrido en ZigZag

5 Comentarios

1. Haskell

   import Data.Matrix recorridoZigZag :: Matrix a -> [a] recorridoZigZag = aux.toLists where aux (xs:ys:zss) = xs++(reverse ys)++(aux zss) aux [zss] = zss aux [] = []

   1 2 3 4 5 6 7

   import Data.Matrix   recorridoZigZag :: Matrix a -> [a] recorridoZigZag = aux.toLists   where aux (xs:ys:zss) = xs++(reverse ys)++(aux zss)         aux [zss]       = zss         aux []          = []

   Responder

2. Haskell

   recorridoZigZag :: M.Matrix a -> [a] recorridoZigZag m = concat $ zipWith id (cycle [id,reverse]) (M.toLists m)

   1 2	recorridoZigZag :: M.Matrix a -> [a] recorridoZigZag m = concat $ zipWith id (cycle [id,reverse]) (M.toLists m)

   Responder

3. Haskell

   import Data.Matrix recorridoZigZag :: Matrix a -> [a] recorridoZigZag p = concat([f i | i <- [1..n]]) where n = nrows p m = ncols p f x | odd x = [(p!(x,j)) | j <- [1..m]] | otherwise = reverse([(p!(x,j)) | j <- [1..m]])

   1 2 3 4 5 6 7 8

   import Data.Matrix   recorridoZigZag :: Matrix a -> [a] recorridoZigZag p = concat([f i | i <- [1..n]])   where n = nrows p         m = ncols p         f x | odd x = [(p!(x,j)) | j <- [1..m]]             | otherwise = reverse([(p!(x,j)) | j <- [1..m]])

   Responder

4. Haskell

   recorridoZigZag m =concat(escoge(toLists m)) where escoge []=[] escoge (y:[])=[y] escoge (x:y:zs)=x:(reverse y):(escoge zs)

   1 2 3 4

   recorridoZigZag m =concat(escoge(toLists m))     where escoge []=[]           escoge (y:[])=[y]           escoge (x:y:zs)=x:(reverse y):(escoge zs)

   Responder

   1. Una definición en la que no se trabaja con matrices realmente pero funciona.

      Responder