Data update

Task/Matrix-multiplication/NewLISP/matrix-multiplication-1.l

@@ -0,0 +1,6 @@
+(multiply
+  '((1 2) (3 4))
+  '((-3 -8 3) (-2 1 4)))
+
+((-7 -6 11)
+ (-17 -20 25))

Task/Matrix-multiplication/NewLISP/matrix-multiplication-2.l

@@ -0,0 +1,33 @@
+(multiply
+  (array 2 2 '(1 2   3 4))
+  (array 2 3 '(-3 -8 3   -2 1 4)))
+
+((-7 -6 11)
+ (-17 -20 25))
+
+(multiply
+  (array 3 2 '(1 2   3 4   3 6))
+  (array 2 3 '(-3 -8 3   -2 1 4)))
+
+((-7 -6 11)
+ (-17 -20 25)
+ (-21 -18 33))
+
+
+(multiply
+  (array 3 3 '(1 2 3   4 5 6   7 8 9))
+  (array 3 3 '(2 2 2   5 5 5   7 7 7)))
+
+((33 33 33)
+ (75 75 75)
+ (117 117 117))
+
+
+(multiply
+  (array 4 2 '(1 2 3 4 5 6 7 8))
+  (array 2 3 '(1 2 3 4 5 6)))
+
+((9 12 15)
+ (19 26 33)
+ (29 40 51)
+ (39 54 69))

Task/Matrix-multiplication/PascalABC.NET/matrix-multiplication.pas

@@ -0,0 +1,13 @@
+uses NumLibABC;
+
+begin
+  var A := new Matrix(4, 2, 1, 2, 3, 4, 5, 6, 7, 8);
+  var B := new Matrix(2, 3, 1, 2, 3, 4, 5, 6);
+  var C := A * B;
+  'Matrix A:'.Println;
+  A.Println(2, 0);
+  'Matrix B:'.Println;
+  B.Println(2, 0);
+  'Matrix A * B:'.Println;
+  C.Println(3, 0);
+end.