diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2023-01-29 23:41:44 +0100 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2023-01-29 23:41:44 +0100 |
| commit | 67aadbc4e06893f4c6aa9ec43bf8f8ceac22d6cd (patch) | |
| tree | 5f6eb98b543bf20cc96e40c5612f6c09403ca6ca | |
| parent | 18f57b402d576194dd58876a3a81f82330935e24 (diff) | |
| download | perlweeklychallenge-club-67aadbc4e06893f4c6aa9ec43bf8f8ceac22d6cd.tar.gz perlweeklychallenge-club-67aadbc4e06893f4c6aa9ec43bf8f8ceac22d6cd.tar.bz2 perlweeklychallenge-club-67aadbc4e06893f4c6aa9ec43bf8f8ceac22d6cd.zip | |
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 +} |