Matrix multiplication: Difference between revisions
Content added Content deleted
(→{{header|Raku}}: use cross meta-operator in last version) |
(Added Easylang) |
||
Line 2,016: | Line 2,016: | ||
[75,00, 75,00, 75,00] |
[75,00, 75,00, 75,00] |
||
[117,00, 117,00, 117,00]]</pre> |
[117,00, 117,00, 117,00]]</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight> |
|||
proc matmul . m1[][] m2[][] r[][] . |
|||
r[][] = [ ] |
|||
for i to len m1[][] |
|||
r[][] &= [ ] |
|||
for j = 1 to len m2[1][] |
|||
r[i][] &= 0 |
|||
for k to len m2[][] |
|||
r[i][j] += m1[i][k] * m2[k][j] |
|||
. |
|||
. |
|||
. |
|||
. |
|||
mat1[][] = [ [ 1 2 3 ] [ 4 5 6 ] ] |
|||
mat2[][] = [ [ 1 2 ] [ 3 4 ] [ 5 6 ] ] |
|||
matmul mat1[][] mat2[][] erg[][] |
|||
print erg[][] |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[ |
|||
[ 22 28 ] |
|||
[ 49 64 ] |
|||
] |
|||
</pre> |
|||
=={{header|EGL}}== |
=={{header|EGL}}== |
||
<syntaxhighlight lang="egl"> |
<syntaxhighlight lang="egl"> |