diff options
| -rw-r--r-- | challenge-070/ash/raku/ch-1.raku | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-070/ash/raku/ch-1.raku b/challenge-070/ash/raku/ch-1.raku new file mode 100644 index 0000000000..3e4ba2f7f1 --- /dev/null +++ b/challenge-070/ash/raku/ch-1.raku @@ -0,0 +1,22 @@ +#!/usr/bin/env raku + +# Task 1 from +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-070/ + +# Comments: https://andrewshitov.com/2020/07/20/raku-challenge-week-70-issue-1/ + +my $s = 'perlandraku'; +my $c = 3; +my $o = 4; + +my @s = $s.comb; +for 1..$c -> $x { + my $y = ($x + $o) % $s.chars; + @s[$x, $y] = @s[$y, $x]; +} +$s = @s.join(''); + +say $s; + +# Output: +# pndraerlaku |