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