Merge pull request #8958 from wambash/challenge-week-240

solutions week 240

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-240/wambash/raku/ch-1.raku b/challenge-240/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..5aea7bf805
--- /dev/null
+++ b/challenge-240/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub acronym (+str, :$chk) {
+    str
+    andthen .map: *.substr: 0,1
+    andthen .join.fc eq $chk
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is acronym('Perl','Python','Pascal', :chk<ppp>),True;
+    is acronym('Perl','Raku', :chk<rp>), False;
+    is acronym('Raku','Perl', :chk<rp>), True;
+    is acronym('Oracle','Awk', 'C', :chk<oac>), True;
+    done-testing;
+}
+
+multi MAIN (+str, :$chk) {
+    say acronym str, :$chk
+}
diff --git a/challenge-240/wambash/raku/ch-2.raku b/challenge-240/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..d9de23b850
--- /dev/null
+++ b/challenge-240/wambash/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+sub build-array (+@int) {
+    @int[@int]
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is build-array(0,2,1,5,3,4),(0,1,2,4,5,3);
+    is build-array(5,0,1,2,3,4),(4,5,0,1,2,3);
+    done-testing;
+}
+
+multi MAIN (*@int) {
+    say build-array @int
+}