diff options
| -rw-r--r-- | challenge-009/daniel-mita/perl6/ch-2.p6 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-009/daniel-mita/perl6/ch-2.p6 b/challenge-009/daniel-mita/perl6/ch-2.p6 index b4db7d8758..bd17512c7d 100644 --- a/challenge-009/daniel-mita/perl6/ch-2.p6 +++ b/challenge-009/daniel-mita/perl6/ch-2.p6 @@ -35,6 +35,14 @@ multi MAIN ( multi GENERATE-USAGE ( &main, + *@ where { .[1,3…*].all !~~ Numeric }, + |, +) { + "Error:\n Non-numeric score given.\n\n" ~ GENERATE-USAGE(&main); +} + +multi GENERATE-USAGE ( + &main, *@ where * !%% 2, |, ) { |