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.Applicative
import Control.Monad
import Data.List

main = do
    ns <- fmap (read :: String -> Int) . words <$> getLine
    let n = ns !! 0
        m = ns !! 1
        l = ns !! 2
    as <- getMatrix n
    bs <- transpose <$> getMatrix m
    mapM_ (\x -> putStrLn x) $ rowShow $ calcMatrix as bs

getMatrix :: Int -> IO [[Int]]
getMatrix n = do
    forM [1..n] $ \_ -> do
        fmap (read :: String -> Int) . words <$> getLine

calcMatrix :: [[Int]] -> [[Int]] -> [[Int]]
calcMatrix as bs = foldr (\x acc -> (sumVec $ mulVec x bs) : acc) [] as

-- [1,2] * [[1,1], [2,2]] = [[1,2], [2,4]]
mulVec :: [Int] -> [[Int]] -> [[Int]]
mulVec ns xs = foldr(\s acc -> (zipWith (*) ns s) : acc) [] xs

-- [[1,2], [2,4]] = [3, 6]
sumVec :: [[Int]] -> [Int]
sumVec = foldr (\x acc -> sum x : acc) []

rowShow matrix = foldr (\x acc -> (unwords x) : acc) [] $ map (\x -> map (\y -> show y) x) matrix