diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-07-26 09:38:44 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-07-26 09:38:44 -0600 |
| commit | b8b6f7fb46b77af201a86044902b815b5ea6b54d (patch) | |
| tree | 467fd640717f19f733fbafec93ca55f53c845e72 | |
| parent | ca649ced4c0189d05327ac39c0cf81bee6e4db1c (diff) | |
| download | perlweeklychallenge-club-b8b6f7fb46b77af201a86044902b815b5ea6b54d.tar.gz perlweeklychallenge-club-b8b6f7fb46b77af201a86044902b815b5ea6b54d.tar.bz2 perlweeklychallenge-club-b8b6f7fb46b77af201a86044902b815b5ea6b54d.zip | |
Usage edit
| -rw-r--r-- | challenge-070/mark-anderson/raku/ch-1.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-070/mark-anderson/raku/ch-1.raku b/challenge-070/mark-anderson/raku/ch-1.raku index 4dba5f55dd..edb3ff5b79 100644 --- a/challenge-070/mark-anderson/raku/ch-1.raku +++ b/challenge-070/mark-anderson/raku/ch-1.raku @@ -7,15 +7,15 @@ sub MAIN(Str $S, UInt $C, UInt $O) { my @S = $S.comb; - map { @S[$_ % $N, ($_ + $O) % $N] = @S[($_ + $O) % $N, $_ % $N] }, 1 .. $C; + map { @S[$_ % $N, ($_ + $O) % $N] = @S[($_ + $O) % $N, $_ % $N] }, 1..$C; say @S.join; } sub Usage { - note "Usage: $*PROGRAM-NAME " ~ '$S $C $O'; + note "$*PROGRAM-NAME $*USAGE"; - note 'where $C >= 1, $O >= 1, $O >= $C, $S.chars >= $C + $O'; + note ' where $C >= 1, $O >= 1, $O >= $C, $S.chars >= $C + $O'; exit; } |