Diagonales secundarias de una matriz

3 Comentarios

1. Haskell

   import Data.Array type Matriz a = Array (Int,Int) a diagonalesSecundarias :: Matriz a -> [[a]] diagonalesSecundarias p = [[p!(i,j) | (i,j) <- extension ij] | ij <- laterales] where (_,(m,n)) = bounds p laterales = [(1,j) | j <- [1..n-1]] ++ [(i,n) | i <- [1..m]] extension (i,j) = [(i+k,j-k) | k <- [0..min (m-i) (j-1)]]

   1 2 3 4 5 6 7 8 9 10

   import Data.Array   type Matriz a = Array (Int,Int) a   diagonalesSecundarias :: Matriz a -> [[a]] diagonalesSecundarias p =     [[p!(i,j) | (i,j) <- extension ij] | ij <- laterales]     where (_,(m,n))       = bounds p           laterales       = [(1,j) | j <- [1..n-1]] ++ [(i,n) | i <- [1..m]]           extension (i,j) = [(i+k,j-k) | k <- [0..min (m-i) (j-1)]]

   Responder

2. Haskell

   import Data.Array type Matriz a = Array (Int,Int) a diagonalesSecundarias :: Matriz a -> [[a]] diagonalesSecundarias p = [diagoSec (i,j) p | (i,j) <- cabezasDiagonal p] where cabezasDiagonal p = zip (repeat 1) [1..n] ++ zip [2..m] (repeat n) (_,(m,n)) = bounds p diagoSec :: (Int,Int) -> Matriz a -> [a] diagoSec (i,j) p | inRange b (i+1,j-1) = p!(i,j) : diagoSec (i+1,j-1) p | otherwise = [p!(i,j)] where b = bounds p

   1 2 3 4 5 6 7 8 9 10 11 12 13 14

   import Data.Array   type Matriz a = Array (Int,Int) a   diagonalesSecundarias :: Matriz a -> [[a]] diagonalesSecundarias p = [diagoSec (i,j) p | (i,j) <- cabezasDiagonal p]     where cabezasDiagonal p = zip (repeat 1) [1..n] ++ zip [2..m] (repeat n)           (_,(m,n))         = bounds p diagoSec :: (Int,Int) -> Matriz a -> [a] diagoSec (i,j) p     | inRange b (i+1,j-1) = p!(i,j) : diagoSec (i+1,j-1) p     | otherwise           = [p!(i,j)]     where b = bounds p

   Responder

3. Haskell

   import Data.Array diagonalesSecundarias :: (Enum i, Num i, Ix i) => Array (i, i) a -> [[a]] diagonalesSecundarias v = [[v!(ax+x+y, ay-y) | y <- [-min (by-ay) x .. -max 0 (x-bx+ax)]] | x <- [0 .. bx-ax+by-ay]] where ((ax, ay), (bx, by)) = bounds v

   1 2 3 4 5 6 7

   import Data.Array   diagonalesSecundarias :: (Enum i, Num i, Ix i) => Array (i, i) a -> [[a]] diagonalesSecundarias v =     [[v!(ax+x+y, ay-y) | y <- [-min (by-ay) x .. -max 0 (x-bx+ax)]]      | x <- [0 .. bx-ax+by-ay]]     where ((ax, ay), (bx, by)) = bounds v

   Responder