Jump to content

Matrix multiplication: Difference between revisions

Matrix multiplication (view source)

Revision as of 21:41, 29 January 2020

16 bytes removed ,  4 years ago
→‎With List and without transpose - shorter
Line 2,250:
===With List and without transpose - shorter===
<lang Haskell>mult:: Num a => [[a]] -> [[a]] -> [[a]]
mult uss vss = map (foldl(\xs -> if null xs then [] else foldl1 (zipWith (+)) ts xs). zipWith (\vs u -> map (u*) vs) vss) uss
where ts = map (const 0).concat $ take 1 vss
main = mapM_ print $ mult [[1, 2],[3, 4]] [[-3, -8, 3],[-2, 1, 4]]</lang>
Blek
678

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/49215"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information