challenge-040/arne-sommer/perl6/array-vertical


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#! /usr/bin/env raku

multi MAIN ()
{
  MAIN('I L O V E Y O U', '2 4 0 3 2 0 1 9', '! ? £ $ % ^ & *');
}

multi MAIN (:$verbose, *@strings where @strings.elems)
{
  my @arrays = @strings.map(*.words);
  
  my $length = @arrays>>.elems.max; 

  if $verbose
  {
    say ":A: { @arrays.perl }";
    say ":L: $length";
  }
  
  for ^$length -> $index
  {
    print "{ $_[$index] // ' ' } " for @arrays;
    say "";
  }
}