Matrix multiplication: Difference between revisions
Content added Content deleted
(add Tailspin solution) |
|||
| Line 2,234: | Line 2,234: | ||
<lang Haskell> |
<lang Haskell> |
||
multiply:: Num a => [[a]] -> [[a]] -> [[a]] |
multiply:: Num a => [[a]] -> [[a]] -> [[a]] |
||
multiply [] _ = error "left matrix is empty" |
|||
multiply _ [] = error "right matrix is empty" |
|||
multiply us vs = map (mult [] vs) us |
multiply us vs = map (mult [] vs) us |
||
where |
where |
||