Use map to compelte task 2

1 files changed, 8 insertions, 4 deletions

diff --git a/challenge-110/luca-ferrari/raku/ch-2.p6 b/challenge-110/luca-ferrari/raku/ch-2.p6
index b388913a7f..ed01afe516 100644
--- a/challenge-110/luca-ferrari/raku/ch-2.p6
+++ b/challenge-110/luca-ferrari/raku/ch-2.p6
@@ -5,8 +5,12 @@ sub MAIN( Str $file-name = 'people.txt' ) {
     my @content;
     @content.push: .split( ',' ) for $file-name.IO.lines;
 
-    for 0 ..^ @content[ 0 ].elems -> $column {
-        my @row.push:  @content[ $_ ][ $column ] for 0 ..^ @content.elems;
-        @row.join( ',' ).say;
-    }
+    # for 0 ..^ @content[ 0 ].elems -> $column {
+    #     my @row.push:  @content[ $_ ][ $column ] for 0 ..^ @content.elems;
+    #     @row.join( ',' ).say;
+    # }
+
+    my @transposed.push: @content.map: *[ $_ ] for 0 ..^ @content[ 0 ].elems;
+    $_.join( ',' ).say for @transposed;
+
 }