From b2523c9a6b172ae1a019bc4f5a1e8c825c73d6b2 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sat, 6 Jan 2024 20:59:56 +0100
Subject: solutions week 250

---
 challenge-250/wambash/raku/ch-1.raku | 19 +++++++++++++++++++
 challenge-250/wambash/raku/ch-2.raku | 20 ++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 challenge-250/wambash/raku/ch-1.raku
 create mode 100644 challenge-250/wambash/raku/ch-2.raku

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


From 9091d0a6f53e5537b2ffe01c51ad0b404368838d Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sat, 6 Jan 2024 21:15:10 +0100
Subject: solutions week 250-1 modular index before compare

---
 challenge-250/wambash/raku/ch-1.raku | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/challenge-250/wambash/raku/ch-1.raku b/challenge-250/wambash/raku/ch-1.raku
index fb4557923a..770cc038fe 100644
--- a/challenge-250/wambash/raku/ch-1.raku
+++ b/challenge-250/wambash/raku/ch-1.raku
@@ -3,7 +3,7 @@
 sub smallest-index (+ints) {
     ints
     andthen .pairs
-    andthen .first: { .key == .value }, :k
+    andthen .first: { .key mod 10 == .value  }, :k
 }
 
 multi MAIN (Bool :test($)!) {
@@ -11,6 +11,7 @@ multi MAIN (Bool :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;
+    is smallest-index(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 0), 10;
     done-testing;
 }
 
-- 
cgit