diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2024-01-06 21:15:10 +0100 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2024-01-06 21:15:10 +0100 |
| commit | 9091d0a6f53e5537b2ffe01c51ad0b404368838d (patch) | |
| tree | f38ae997cb5ec613535acda9f2fef5e9e6e91b5d | |
| parent | b2523c9a6b172ae1a019bc4f5a1e8c825c73d6b2 (diff) | |
| download | perlweeklychallenge-club-9091d0a6f53e5537b2ffe01c51ad0b404368838d.tar.gz perlweeklychallenge-club-9091d0a6f53e5537b2ffe01c51ad0b404368838d.tar.bz2 perlweeklychallenge-club-9091d0a6f53e5537b2ffe01c51ad0b404368838d.zip | |
solutions week 250-1 modular index before compare
| -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; } |