Merge pull request #1986 from andemark/branch-for-challenge-070

overdue usage edit

1 files changed, 5 insertions, 4 deletions

diff --git a/challenge-070/mark-anderson/raku/ch-1.raku b/challenge-070/mark-anderson/raku/ch-1.raku
index edb3ff5b79..f6290c1b3b 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 {
+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;
 }