diff options
| -rw-r--r-- | challenge-034/mark-anderson/perl5/ch-1.pl | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/challenge-034/mark-anderson/perl5/ch-1.pl b/challenge-034/mark-anderson/perl5/ch-1.pl index c5d8a41bda..205b0db7fe 100644 --- a/challenge-034/mark-anderson/perl5/ch-1.pl +++ b/challenge-034/mark-anderson/perl5/ch-1.pl @@ -1,15 +1,11 @@ #!/usr/bin/env perl - use Modern::Perl '2018'; -my @numbers = (0 .. 25); - -my @letters = ('a' .. 'z'); - -my %number; - -@number{@letters} = @numbers; +my @indices = (0 .. 25); +my @letters = ('A' .. 'Z'); -say "array: ", join ", ", @letters[0, 4, 7]; +my %index; +@index{@letters} = @indices; -say "hash: ", join ", ", @number{'a', 'e', 'h'}; +say "array: ", @letters[9, 0, 15, 7]; +say "hash: ", join ", ", @index{'J', 'A', 'P', 'H'}; |