From 5bb59611f8c7d8a62526ee2d1aaefcf9825908a3 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 20 Nov 2022 12:29:17 +0100
Subject: solution week 191-1

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

diff --git a/challenge-191/wambash/raku/ch-1.raku b/challenge-191/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..01321c5684
--- /dev/null
+++ b/challenge-191/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub twice-largest (+@list) {
+   so @list.max < @list.one * 2
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is twice-largest(1,2,3,4),False;
+    is twice-largest(1,2,0,5),True;
+    is twice-largest(2,6,3,1),True;
+    is twice-largest(4,5,2,3),False;
+    done-testing;
+}
+
+multi MAIN (*@list) {
+    say twice-largest( @list ) ?? 1 !! -1
+}
-- 
cgit