diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-01-25 10:43:31 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-01-25 10:43:31 +0100 |
| commit | 064aa7c5beeb51ccb21c6f03f716734af07360d6 (patch) | |
| tree | 942814bef663438394b874ffbe21cc761534d6dc | |
| parent | 3a1e9b4d384b6f6cfe498ab10e182b169b2833ef (diff) | |
| download | perlweeklychallenge-club-064aa7c5beeb51ccb21c6f03f716734af07360d6.tar.gz perlweeklychallenge-club-064aa7c5beeb51ccb21c6f03f716734af07360d6.tar.bz2 perlweeklychallenge-club-064aa7c5beeb51ccb21c6f03f716734af07360d6.zip | |
Use uppercase strings when comparing with the alphabet.
| -rw-r--r-- | challenge-097/luca-ferrari/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-097/luca-ferrari/raku/ch-1.p6 b/challenge-097/luca-ferrari/raku/ch-1.p6 index 970bd2379b..f8897ae78a 100644 --- a/challenge-097/luca-ferrari/raku/ch-1.p6 +++ b/challenge-097/luca-ferrari/raku/ch-1.p6 @@ -14,6 +14,6 @@ sub MAIN( Str $S = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG", %cipher{ @alphabet[ $_ ] } = @alphabet.rotate( $N * -1 )[ $_ ] for ^@alphabet.elems; say "Encoding $S"; - print %cipher{ $_ }:exists ?? %cipher{ $_ } !! $_ for $S.comb; + print %cipher{ $_ }:exists ?? %cipher{ $_ } !! $_ for $S.uc.comb; say "\ndone"; } |