diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-07-26 16:43:15 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-07-26 16:43:15 +0100 |
| commit | 450eab302dee5452d66be1f388cea4fafb0b5a31 (patch) | |
| tree | be162d38280e4ea630f572ab53fb5d2d5f3e4e74 /challenge-070 | |
| parent | aab3f89eb92ebd2bb09393b68176def945700b06 (diff) | |
| parent | b8b6f7fb46b77af201a86044902b815b5ea6b54d (diff) | |
| download | perlweeklychallenge-club-450eab302dee5452d66be1f388cea4fafb0b5a31.tar.gz perlweeklychallenge-club-450eab302dee5452d66be1f388cea4fafb0b5a31.tar.bz2 perlweeklychallenge-club-450eab302dee5452d66be1f388cea4fafb0b5a31.zip | |
Merge pull request #1981 from andemark/branch-for-challenge-070
Usage edit
Diffstat (limited to 'challenge-070')
| -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; } |