RosettaCodeData/Task/Matrix-multiplication/Zkl/matrix-multiplication-3.zkl

7 lines
199 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
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()) }