From 67aadbc4e06893f4c6aa9ec43bf8f8ceac22d6cd Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 29 Jan 2023 23:41:44 +0100
Subject: solution week 201-1

---
 challenge-201/wambash/raku/ch-1.raku | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-201/wambash/raku/ch-1.raku

(limited to 'challenge-201')

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
+}
-- 
cgit