Initial data commit

Task/Matrix-transposition/AppleScript/matrix-transposition-1.applescript

@@ -0,0 +1,21 @@
+on run
+    transpose([[1, 2, 3], [4, 5, 6], [7, 8, 9], [10, 11, 12]])
+
+    --> {{1, 4, 7, 10}, {2, 5, 8, 11}, {3, 6, 9, 12}}
+end run
+
+on transpose(xss)
+    set lstTrans to {}
+
+    repeat with iCol from 1 to length of item 1 of xss
+        set lstCol to {}
+
+        repeat with iRow from 1 to length of xss
+            set end of lstCol to item iCol of item iRow of xss
+        end repeat
+
+        set end of lstTrans to lstCol
+    end repeat
+
+    return lstTrans
+end transpose