challenge-045/arne-sommer/raku/square-secret-code


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

#! /usr/bin/env raku

unit sub MAIN ($string is copy = "The quick brown fox jumps over the lazy dog", :$verbose);

$string ~~ tr/" "//;

say ": { $string.lc }" if $verbose;

my @a = $string.lc.comb;

for 0 .. 7 -> $word
{
  my $index = $word;
  loop
  {
    @a[$index]:exists
     ?? print  @a[$index]
     !! ( print " "; last);

   $index += 8;
  }
}

say "";