diff options
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-2.p6 | 12 |
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; + } |