Problem:
MathJax.Hub.Config({ tex2jax: { inlineMath: [["$","$"], ["\\(","\\)"]], processEscapes: true }});

Matrix Multiplication

Write a program which reads a $n \times m$ matrix $A$ and a $m \times l$ matrix $B$, and prints their product, a $n \times l$ matrix $C$. An element of matrix $C$ is obtained by the following formula:

\[
c_{ij} = \sum_{k=1}^m a_{ik}b_{kj}
\]

where $a_{ij}$, $b_{ij}$ and $c_{ij}$ are elements of $A$, $B$ and $C$ respectively.

Input

In the first line, three integers $n$, $m$ and $l$ are given separated by space characters

In the following lines, the $n \times m$ matrix $A$ and the $m \times l$ matrix $B$ are given.

Output

Print elements of the $n \times l$ matrix $C$ ($c_{ij}$). Print a single space character between adjacent elements.

Constraints

$1 \leq n, m, l \leq 100$

$0 \leq a_{ij}, b_{ij} \leq 10000$

Sample Input

3 2 3
1 2
0 3
4 5
1 2 1
0 3 2

Sample Output

1 8 5
0 9 6
4 23 14

Note

      解説

Solution in Haskell (judge verdict: Accepted)

import Control.Monad
import Data.List

toThree :: String -> IO [Int]
toThree l =  return (map read . words $ l)

toArray :: [String] -> [[Int]]
toArray = map (map read . words)

getNLine :: [Int] -> IO ([[Int]], [[Int]])
getNLine (n:m:l:_) = do
        a <- replicateM n getLine
        b <- replicateM m getLine
        return (toArray a, toArray b)

multi :: [Int] -> [Int] -> Int
multi [] _ = 0
multi _ [] = 0
multi (a:as) (b:bs) = a * b + multi as bs

solv :: ([[Int]], [[Int]]) -> IO [[Int]]
solv (a, _b) = return $ map (\al -> map (\bl -> multi al bl ) b ) a
    where
      b = transpose _b

showRes :: [[Int]] -> String
showRes [] = ""
showRes (x:xs) = (concat . intersperse " " . map show $ x) ++ "\n" ++ (showRes xs)

main = getLine >>= toThree >>= getNLine >>= solv >>= putStr . showRes