From b8b6f7fb46b77af201a86044902b815b5ea6b54d Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Sun, 26 Jul 2020 09:38:44 -0600
Subject: Usage edit

---
 challenge-070/mark-anderson/raku/ch-1.raku | 6 +++---
 1 file 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;
 }
-- 
cgit