From 00809e67562ace6b652f3043939386f882ea5570 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 27 Jul 2020 00:13:30 -0600
Subject: overdue usage edit

---
 challenge-070/mark-anderson/raku/ch-1.raku | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/challenge-070/mark-anderson/raku/ch-1.raku b/challenge-070/mark-anderson/raku/ch-1.raku
index edb3ff5b79..c1d83fdc13 100644
--- a/challenge-070/mark-anderson/raku/ch-1.raku
+++ b/challenge-070/mark-anderson/raku/ch-1.raku
@@ -1,7 +1,8 @@
 #!/usr/bin/env raku 
 
-sub MAIN(Str $S, UInt $C, UInt $O) {
-    Usage() if $C < 1 or $O < 1 or $O < $C or $S.chars < $C + $O;
+sub MAIN(UInt $C where $C >= 1, 
+         UInt $O where $O >= $C, 
+         Str $S where $S.chars >= $C + $O) {
 
     my $N = $S.chars;
 
@@ -12,10 +13,10 @@ sub MAIN(Str $S, UInt $C, UInt $O) {
     say @S.join;
 }
 
-sub Usage {
-    note "$*PROGRAM-NAME $*USAGE";
+sub USAGE {
+    note "$*PROGRAM-NAME, $*USAGE";
 
-    note '  where $C >= 1, $O >= 1, $O >= $C, $S.chars >= $C + $O';
+    note '  where $C >= 1, $O >= $C, $S.chars >= $C + $O';
 
     exit;
 }
-- 
cgit 


From ea29cc287920351738f14af64a4d47ce4b3e9f66 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 27 Jul 2020 00:20:13 -0600
Subject: overdue usage edit

---
 challenge-070/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-070/mark-anderson/raku/ch-1.raku b/challenge-070/mark-anderson/raku/ch-1.raku
index c1d83fdc13..99d9fe54e4 100644
--- a/challenge-070/mark-anderson/raku/ch-1.raku
+++ b/challenge-070/mark-anderson/raku/ch-1.raku
@@ -14,7 +14,7 @@ sub MAIN(UInt $C where $C >= 1,
 }
 
 sub USAGE {
-    note "$*PROGRAM-NAME, $*USAGE";
+    note "$*PROGRAM-NAME $*USAGE";
 
     note '  where $C >= 1, $O >= $C, $S.chars >= $C + $O';
 
-- 
cgit 


From 2676517bc33013e5c5246295041cc4d50708859a Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 27 Jul 2020 00:27:22 -0600
Subject: overdue usage edit

---
 challenge-070/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-070/mark-anderson/raku/ch-1.raku b/challenge-070/mark-anderson/raku/ch-1.raku
index 99d9fe54e4..f6290c1b3b 100644
--- a/challenge-070/mark-anderson/raku/ch-1.raku
+++ b/challenge-070/mark-anderson/raku/ch-1.raku
@@ -2,7 +2,7 @@
 
 sub MAIN(UInt $C where $C >= 1, 
          UInt $O where $O >= $C, 
-         Str $S where $S.chars >= $C + $O) {
+         Str  $S where $S.chars >= $C + $O) {
 
     my $N = $S.chars;
 
-- 
cgit