diff options
| author | andrezgz <andrezgz@gmail.com> | 2019-06-24 20:45:37 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-06-24 20:45:37 -0300 |
| commit | 140dbc75965a216207bdaf33d953c2457ac7d528 (patch) | |
| tree | a67bb668bfcc2cd21c3cca689297b16e246519a1 /challenge-014 | |
| parent | a494c0d97a3afcb18e4481173bf590f6d0706766 (diff) | |
| download | perlweeklychallenge-club-140dbc75965a216207bdaf33d953c2457ac7d528.tar.gz perlweeklychallenge-club-140dbc75965a216207bdaf33d953c2457ac7d528.tar.bz2 perlweeklychallenge-club-140dbc75965a216207bdaf33d953c2457ac7d528.zip | |
challenge-014 andrezgz beautify
Diffstat (limited to 'challenge-014')
| -rw-r--r-- | challenge-014/andrezgz/perl5/ch-2.pl | 60 |
1 files changed, 10 insertions, 50 deletions
diff --git a/challenge-014/andrezgz/perl5/ch-2.pl b/challenge-014/andrezgz/perl5/ch-2.pl index b5bd49b867..71ef27622a 100644 --- a/challenge-014/andrezgz/perl5/ch-2.pl +++ b/challenge-014/andrezgz/perl5/ch-2.pl @@ -23,56 +23,16 @@ my $words_file = $ARGV[0]; open(my $fh, "<", $words_file) or die "Could not open words file '$words_file': $!"; my %usps = ( - AL => 'Alabama', - AK => 'Alaska', - AZ => 'Arizona', - AR => 'Arkansas', - CA => 'California', - CO => 'Colorado', - CT => 'Connecticut', - DE => 'Delaware', - FL => 'Florida', - GA => 'Georgia', - HI => 'Hawaii', - ID => 'Idaho', - IL => 'Illinois', - IN => 'Indiana', - IA => 'Iowa', - KS => 'Kansas', - KY => 'Kentucky', - LA => 'Louisiana', - ME => 'Maine', - MD => 'Maryland', - MA => 'Massachusetts', - MI => 'Michigan', - MN => 'Minnesota', - MS => 'Mississippi', - MO => 'Missouri', - MT => 'Montana', - NE => 'Nebraska', - NV => 'Nevada', - NH => 'New Hampshire', - NJ => 'New Jersey', - NM => 'New Mexico', - NY => 'New York', - NC => 'North Carolina', - ND => 'North Dakota', - OH => 'Ohio', - OK => 'Oklahoma', - OR => 'Oregon', - PA => 'Pennsylvania', - RI => 'Rhode Island', - SC => 'South Carolina', - SD => 'South Dakota', - TN => 'Tennessee', - TX => 'Texas', - UT => 'Utah', - VT => 'Vermont', - VA => 'Virginia', - WA => 'Washington', - WV => 'West Virginia', - WI => 'Wisconsin', - WY => 'Wyoming' + AL => 'Alabama', AK => 'Alaska', AZ => 'Arizona', AR => 'Arkansas', CA => 'California', + CO => 'Colorado', CT => 'Connecticut', DE => 'Delaware', FL => 'Florida', GA => 'Georgia', + HI => 'Hawaii', ID => 'Idaho', IL => 'Illinois', IN => 'Indiana', IA => 'Iowa', + KS => 'Kansas', KY => 'Kentucky', LA => 'Louisiana', ME => 'Maine', MD => 'Maryland', + MA => 'Massachusetts', MI => 'Michigan', MN => 'Minnesota', MS => 'Mississippi', MO => 'Missouri', + MT => 'Montana', NE => 'Nebraska', NV => 'Nevada', NH => 'New Hampshire', NJ => 'New Jersey', + NM => 'New Mexico', NY => 'New York', NC => 'North Carolina', ND => 'North Dakota', OH => 'Ohio', + OK => 'Oklahoma', OR => 'Oregon', PA => 'Pennsylvania', RI => 'Rhode Island', SC => 'South Carolina', + SD => 'South Dakota', TN => 'Tennessee', TX => 'Texas', UT => 'Utah', VT => 'Vermont', + VA => 'Virginia', WA => 'Washington', WV => 'West Virginia', WI => 'Wisconsin', WY => 'Wyoming' ); my @max = (''); |