Matrix multiplication: Difference between revisions
Content added Content deleted
| Line 2,248: | Line 2,248: | ||
[-17,-20,25] |
[-17,-20,25] |
||
</pre> |
</pre> |
||
===With List and without transpose - |
===With List and without transpose - shorter=== |
||
<lang Haskell>mult:: Num a => [[a]] -> [[a]] -> [[a]] |
<lang Haskell>mult:: Num a => [[a]] -> [[a]] -> [[a]] |
||
mult uss vss = map (foldl (zipWith (+)) ts . zipWith (\vs u -> map (u*) vs) vss) uss |
mult uss vss = map (foldl (zipWith (+)) ts . zipWith (\vs u -> map (u*) vs) vss) uss |
||