Matrix multiplication: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|TI-83 BASIC}}: other way) |
(→{{header|ZPL}}: Added zkl) |
||
Line 3,360:
A slightly smaller version of above stylesheet making use of (Non-"XSLT 1.0") EXSLT functions can be founde here: [[https://www.ibm.com/developerworks/mydeveloperworks/blogs/HermannSW/entry/matrix_multiplication30]]
=={{header|zkl}}==
{{trans|BASIC}}
<lang zkl>fcn matMult(a,b){
n,m,p:=a[0].len(),a.len(),b[0].len();
ans:=(0).pump(m,List().write, (0).pump(p,List,0).copy); // matrix of zeros
foreach i,j,k in (m,p,n){ ans[i][j]+=a[i][k]*b[k][j]; }
ans
}</lang>
<lang zkl>a:=L( L(1,2,), L(3,4,), L(5,6,), L(7,8) );
b:=L( L(1,2,3,), L(4,5,6) );
printM(matMult(a,b));
fcn printM(m){ m.pump(Console.println,rowFmt) }
fcn rowFmt(row){ ("%4d "*row.len()).fmt(row.xplode()) }</lang>
{{out}}
<pre>
9 12 15
19 26 33
29 40 51
39 54 69
</pre>
=={{header|ZPL}}==
| |||