Data update

Task/Matrix-transposition/Scheme/matrix-transposition-1.scm

@@ -0,0 +1,2 @@
+(define (transpose m)
+  (apply map list m))

Task/Matrix-transposition/Scheme/matrix-transposition-2.scm

@@ -0,0 +1,15 @@
+(import srfi/231)
+
+(define (transpose m)
+  (array-permute m '#(1 0)))
+
+(define m
+  (list->array (make-interval '#(3 8))
+               (iota 24)))
+
+(define m*
+  (transpose m))
+
+(pretty-print (array->list* m))
+(newline)
+(pretty-print (array->list* m*))