diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-01-29 22:58:40 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-01-29 22:58:40 +0000 |
| commit | 9a524b53e8137e891481b56ed0c3b0abf9b94de1 (patch) | |
| tree | b6f07e0ac676aa8fed46b50667c1bfdbe43f67c5 | |
| parent | 2420cdf15fc89eed197b0a97588c836bbceb5447 (diff) | |
| parent | 67aadbc4e06893f4c6aa9ec43bf8f8ceac22d6cd (diff) | |
| download | perlweeklychallenge-club-9a524b53e8137e891481b56ed0c3b0abf9b94de1.tar.gz perlweeklychallenge-club-9a524b53e8137e891481b56ed0c3b0abf9b94de1.tar.bz2 perlweeklychallenge-club-9a524b53e8137e891481b56ed0c3b0abf9b94de1.zip | |
Merge pull request #7492 from wambash/challenge-week-201
solution week 201-1
| -rw-r--r-- | challenge-201/wambash/raku/ch-1.raku | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-201/wambash/raku/ch-1.raku b/challenge-201/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..5a45650e56 --- /dev/null +++ b/challenge-201/wambash/raku/ch-1.raku @@ -0,0 +1,17 @@ +#!/usr/bin/env raku + +sub missing-numbers (+@list) { + 0 .. @list + andthen $_ (-) @list +} + +multi MAIN (Bool :test($)!) { + use Test; + is missing-numbers(0,1,3),2; + is missing-numbers(0,1),2; + done-testing; +} + +multi MAIN (+@list) { + say missing-numbers +@list +} |