Data commit

Task/Matrix-transposition/AWK/matrix-transposition-1.awk

@@ -0,0 +1,14 @@
+# syntax: GAWK -f MATRIX_TRANSPOSITION.AWK filename
+{   if (NF > nf) {
+        nf = NF
+    }
+    for (i=1; i<=nf; i++) {
+        row[i] = row[i] $i " "
+    }
+}
+END {
+    for (i=1; i<=nf; i++) {
+        printf("%s\n",row[i])
+    }
+    exit(0)
+}

Task/Matrix-transposition/AWK/matrix-transposition-2.awk

@@ -0,0 +1,29 @@
+# Usage: GAWK -f MATRIX_TRANSPOSITION.AWK filename
+{
+    i = NR
+    for (j = 1; j <= NF; j++) {
+        a[i,j] = $j
+    }
+    ranka1 = i
+    ranka2 = max(ranka2, NF)
+}
+END {
+    rankb1 = ranka2
+    rankb2 = ranka1
+    b[rankb1, rankb2] = 0
+    transpose_matrix(b, a)
+    for (i = 1; i <= rankb1; i++) {
+        for (j = 1; j <= rankb2; j++) {
+            printf("%g%c", b[i,j], j < rankb2 ? " " : "\n");
+        }
+    }
+}
+function transpose_matrix(target, source,     key, idx) {
+    for (key in source) {
+        split(key, idx, SUBSEP)
+        target[idx[2], idx[1]] = source[idx[1], idx[2]]
+    }
+}
+function max(m, n) {
+    return m > n ? m : n
+}