diff options
| -rw-r--r-- | challenge-250/wambash/raku/ch-1.raku | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |