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

update

Browse source
This commit is contained in:
Ingy döt Net 2013-06-05 21:47:54 +00:00
parent 1f1ad49427
commit 6f050a029e
2496 changed files with 37609 additions and 3031 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -0,0 +1,7 @@
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]