diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-04-27 13:09:16 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-04-27 13:09:16 +0000 |
| commit | 03b4fecdc23d8d1f99f053f65ef35758d749c370 (patch) | |
| tree | a8d4c71db0d646bb7e118af0206d49f3e463f46d | |
| parent | 23cd125be2c8a5364f3210d8f28f45c8d80df3fb (diff) | |
| download | perlweeklychallenge-club-03b4fecdc23d8d1f99f053f65ef35758d749c370.tar.gz perlweeklychallenge-club-03b4fecdc23d8d1f99f053f65ef35758d749c370.tar.bz2 perlweeklychallenge-club-03b4fecdc23d8d1f99f053f65ef35758d749c370.zip | |
Challenge 162 Solutions (Raku)
| -rw-r--r-- | challenge-162/mark-anderson/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-162/mark-anderson/raku/ch-2.raku b/challenge-162/mark-anderson/raku/ch-2.raku index 492cdc1e35..b538b89fa7 100644 --- a/challenge-162/mark-anderson/raku/ch-2.raku +++ b/challenge-162/mark-anderson/raku/ch-2.raku @@ -16,8 +16,8 @@ class playfair { @!table = ($!key ~ ('a'..'z')).comb(/\S/).unique; my $i = @!table.first('i'|'j', :k).succ; - my $tail = @!table[$i..@!table.end].grep(/<-[ij]>/); - @!table = (@!table[^$i], $tail)>>.Slip.flat.rotor(5); + my @tail = @!table[$i..@!table.end].grep(/<-[ij]>/); + @!table = (@!table[^$i].Array.append(@tail)).rotor(5); } method coordinates |