September 2017 Update

Task/Matrix-transposition/Perl-6/matrix-transposition-1.pl6

@@ -1,16 +0,0 @@
-sub transpose(@m)
-{
-    my @t;
-    for ^@m X ^@m[0] -> ($x, $y) { @t[$y][$x] = @m[$x][$y] }
-    return @t;
-}
-
-# creates a random matrix
-my @a;
-for ^5 X ^5 -> ($x, $y) { @a[$x][$y] = ('a'..'z').pick; }
-say "original:";
-.gist.say for @a;
-
-my @b = transpose(@a);
-say "transposed:";
-.gist.say for @b;

Task/Matrix-transposition/Perl-6/matrix-transposition-2.pl6

@@ -1,10 +0,0 @@
-sub transpose (@m) {
-    ([ @m[*;$_] ] for ^@m[0]);
-}
-
-my @a = < a b c d e >,
-        < f g h i j >,
-        < k l m n o >,
-        < p q r s t >;
-
-.say for @a.&transpose;