Producto de matrices como listas de listas

2 Comentarios

1. Haskell

   productoA1 p q = separa (numeroFilas p) [sum (zipWith (*) (fila i p) (columna j q)) | i <- [1..numeroFilas p], j <- [1..numeroFilas p]] separa n [] = [] separa n xs = [take n xs] ++ separa n (drop n xs) columna j xss = map (!!(j-1)) xss fila i xss = xss !! (i-1) numeroFilas xss = length xss numeroColumnas xss = length (head xss)

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

   productoA1 p q =     separa (numeroFilas p) [sum (zipWith (*) (fila i p) (columna j q)) |                             i <- [1..numeroFilas p], j <- [1..numeroFilas p]]   separa n [] = [] separa n xs = [take n xs] ++ separa n (drop n xs)   columna j xss = map (!!(j-1)) xss   fila i xss = xss !! (i-1)   numeroFilas xss = length xss   numeroColumnas xss = length (head xss)

   Responder

2. Haskell

   import Data.Matrix producto :: Num a => [[a]] -> [[a]] -> [[a]] producto p q = [filas i|i<-[1..m]] where p1 = fromLists p q1 = fromLists q ma = multStd p1 q1 (m,n) = (nrows ma,ncols ma) filas i = [ma!(i,j)|j<-[1..n]]

   1 2 3 4 5 6 7 8 9

   import Data.Matrix   producto :: Num a => [[a]] -> [[a]] -> [[a]] producto p q = [filas i|i<-[1..m]] where p1      = fromLists p        q1      = fromLists q        ma      = multStd p1 q1        (m,n)   = (nrows ma,ncols ma)        filas i = [ma!(i,j)|j<-[1..n]]

   Responder