diff options
| -rw-r--r-- | challenge-070/mark-anderson/raku/ch-1.raku | 11 |
1 files 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; } |