diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-01-23 18:03:20 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-01-23 18:03:20 +0000 |
| commit | ac12c05e54094306339721f7015738cdef97462d (patch) | |
| tree | 64469e984bf71bb668719e87a9b2ed0fe758977e | |
| parent | 46462a22dd163b9248aa84d5e6d2db4ddfb7aa03 (diff) | |
| download | perlweeklychallenge-club-ac12c05e54094306339721f7015738cdef97462d.tar.gz perlweeklychallenge-club-ac12c05e54094306339721f7015738cdef97462d.tar.bz2 perlweeklychallenge-club-ac12c05e54094306339721f7015738cdef97462d.zip | |
Challenge 201 Solutions (Raku)
| -rw-r--r-- | challenge-201/mark-anderson/raku/ch-1.raku | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/challenge-201/mark-anderson/raku/ch-1.raku b/challenge-201/mark-anderson/raku/ch-1.raku index 27d59fd690..ccbe5f2fee 100644 --- a/challenge-201/mark-anderson/raku/ch-1.raku +++ b/challenge-201/mark-anderson/raku/ch-1.raku @@ -1,12 +1,11 @@ #!/usr/bin/env raku use Test; -is-deeply missing-numbers(0,1,3), (2,); -is-deeply missing-numbers(0,1), (2,); -is-deeply missing-numbers(2,3,8), (0,1,4,5,6,7); +is-deeply missing-numbers(0,1,3), (2,); +is-deeply missing-numbers(0,1), (2,); +is-deeply missing-numbers(2,3,8,2457), (0,1,4); sub missing-numbers(*@a) { - my $n = max((max @a), @a.elems); - ((0..$n) (-) @a).keys.sort + ((0..@a) (-) @a).keys.sort } |