Merge pull request #7113 from wambash/challenge-week-191

solution week 191-1

1 files changed, 18 insertions, 0 deletions

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