Data update

Task/Matrix-transposition/Nu/matrix-transposition.nu

@@ -0,0 +1,5 @@
+def 'matrix transpose' [] {
+  each { into record } | values
+}
+
+[[1 5 9] [2 6 10] [3 7 11] [4 8 12]] | matrix transpose | to nuon

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

@@ -0,0 +1,13 @@
+uses NumLibABC;
+
+begin
+  var A := new Matrix(4, 3,
+          1, 2, 3,
+          4, 5, 6,
+          7, 8, 9,
+          10, 11, 12);
+  'Original:'.Println;
+  A.Println(3, 0);
+  'Transposed:'.Println;
+  A.Transpose.Println(3, 0);
+end.

Task/Matrix-transposition/SETL/matrix-transposition.setl

@@ -0,0 +1,10 @@
+program matrix_transposition;
+    mat := [[1,2,3,4], [5,6,7,8], [9,10,11,12]];
+    print(mat);
+    print(' -> ');
+    print(transpose(mat));
+
+    proc transpose(m);
+        return [[m(y)(x) : y in [1..#m]] : x in [1..#m(1)]];
+    end proc;
+end program;

Task/Matrix-transposition/Tailspin/matrix-transposition-2.tailspin

@@ -0,0 +1,26 @@
+transpose templates
+  a is $;
+  $a(1; .. as j; -> $a(..; $j)) !
+end transpose
+
+printMatrix templates
+  formatN templates
+    @ set [];
+    $ -> !#
+    '$@ -> $::length~..2 -> ' ';$@(..:-1)...;' !
+    when <|1..> do ..|@ set $ mod 10; $ ~/ 10 -> !#
+  end formatN
+  $... -> '|$($::first) -> formatN;$(~..)... -> ', $ -> formatN;';|
+' !
+end printMatrix
+
+m is [[1, 2, 3, 4], [5, 6, 7, 8], [9, 10, 11, 12]];
+'before:
+' !
+$m -> printMatrix !
+
+mT is $m -> transpose;
+'
+transposed:
+' !
+$mT -> printMatrix !