diff options
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-2.p6 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-110/luca-ferrari/raku/ch-2.p6 b/challenge-110/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..b388913a7f --- /dev/null +++ b/challenge-110/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,12 @@ +#!raku + +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; + } +} |