solutions week 250

2 files changed, 39 insertions, 0 deletions

diff --git a/challenge-250/wambash/raku/ch-1.raku b/challenge-250/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..fb4557923a
--- /dev/null
+++ b/challenge-250/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub smallest-index (+ints) {
+    ints
+    andthen .pairs
+    andthen .first: { .key == .value }, :k
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is smallest-index(4,3,2,1),2;
+    is smallest-index(0,1,2),0;
+    is smallest-index(1, 2, 3, 4, 5, 6, 7, 8, 9, 0), Nil;
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    say smallest-index( ints ) // -1
+}
diff --git a/challenge-250/wambash/raku/ch-2.raku b/challenge-250/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..6ef1d88724
--- /dev/null
+++ b/challenge-250/wambash/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+
+
+multi string-value-max ( +alphanumeric-string ) {
+    alphanumeric-string
+    andthen .map: { try { .Int  } // .chars }\
+    andthen .max
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is string-value-max(<perl 2 000 python r4ku>), 6;
+    is string-value-max(<001 1 000 0001>), 1;
+    done-testing;
+}
+
+multi MAIN (+alpahnumeric-string) {
+    say string-value-max  alpahnumeric-string
+}