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