aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Matrix-multiplication/Mathematica/matrix-multiplication-4.math
View file

@ -1,7 +1 @@
matrixMul[m1_, m2_] := Table[Times @@ {a, b} // Tr, {a, m1}, {b, Transpose@m2}]
matrixMul2[m1_, m2_] :=Table[Sum[Times @@ i, {i, Transpose@{a, b}}], {a, m1}, {b, Transpose@m2}]
a = {{1, 2}, {3, 4}, {5, 6}, {7, 8}};
b = {{1, 2, 3}, {4, 5, 6}};
matrixMul[a, b]
matrixMul2[a, b]
Times[{{a, b}, {c, d}}, {{w, x}, {y, z}}]