diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-12-25 12:25:40 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-12-25 12:25:40 +0000 |
| commit | 6fe6b26d3e03f849c61d1425968b68d2e0ab4d31 (patch) | |
| tree | 92afb9cfcb4b52619d85b8dad529b9f6cc1dc0fa | |
| parent | 06399d1731e8a64bc5d5f4070e96c218dc3212ce (diff) | |
| download | perlweeklychallenge-club-6fe6b26d3e03f849c61d1425968b68d2e0ab4d31.tar.gz perlweeklychallenge-club-6fe6b26d3e03f849c61d1425968b68d2e0ab4d31.tar.bz2 perlweeklychallenge-club-6fe6b26d3e03f849c61d1425968b68d2e0ab4d31.zip | |
Challenge 249 Solutions (Raku)
| -rw-r--r-- | challenge-249/mark-anderson/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-249/mark-anderson/raku/ch-1.raku b/challenge-249/mark-anderson/raku/ch-1.raku index d3b772effb..8b84602374 100644 --- a/challenge-249/mark-anderson/raku/ch-1.raku +++ b/challenge-249/mark-anderson/raku/ch-1.raku @@ -2,11 +2,11 @@ use Test; is-deeply equal-pairs(3,2,3,2,2,2), ((2,2),(2,2),(3,3)); -nok equal-pairs(1,2,3,4); +is-deeply equal-pairs(1,2,3,4), (); sub equal-pairs(+@a where * %% 2) { my $b = @a.Bag; - return False unless all($b.values) %% 2; + return () unless all($b.values) %% 2; $b.kxxv.sort.rotor(2) } |