diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-12 14:46:50 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-12 14:46:50 +0100 |
| commit | d7c8cc61c96c588f47d4e2b65e8fcbe15ced6277 (patch) | |
| tree | b585ac77928406f3a23fe179bc94a8cd6a421fc5 | |
| parent | a753355c24b5ddae6ba8b031bba57602b3c04f98 (diff) | |
| download | perlweeklychallenge-club-d7c8cc61c96c588f47d4e2b65e8fcbe15ced6277.tar.gz perlweeklychallenge-club-d7c8cc61c96c588f47d4e2b65e8fcbe15ced6277.tar.bz2 perlweeklychallenge-club-d7c8cc61c96c588f47d4e2b65e8fcbe15ced6277.zip | |
- Tidied up Raku solution to Wave Array.
| -rw-r--r-- | challenge-055/mohammad-anwar/raku/ch-2a.p6 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/challenge-055/mohammad-anwar/raku/ch-2a.p6 b/challenge-055/mohammad-anwar/raku/ch-2a.p6 index 2383233666..d49567bc31 100644 --- a/challenge-055/mohammad-anwar/raku/ch-2a.p6 +++ b/challenge-055/mohammad-anwar/raku/ch-2a.p6 @@ -13,6 +13,8 @@ for $unit-tests.keys.sort -> $size { is-deeply(fetch-wave-array($size), $unit-tests{$size}, "array size $size"); } +done-testing; + sub fetch-wave-array($size) { die "ERROR: Invalid array size [$size]\n" unless ($size ~~ /^\d+$/ && $size > 0); |