From 0cb0414c1142bbbfab7c2227674fb76b42008782 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Wed, 13 Nov 2019 07:19:53 -0700 Subject: Aesthetic edits to ch-1.pl --- challenge-034/mark-anderson/perl5/ch-1.pl | 16 ++++++---------- 1 file 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'}; -- cgit