diff options
| author | Aaron Sherman <ajs@ajs.com> | 2019-06-24 10:03:36 -0400 |
|---|---|---|
| committer | Aaron Sherman <ajs@ajs.com> | 2019-06-24 10:03:36 -0400 |
| commit | 7b52e47cbd16bc213b2969ddcc8f1aa399d4ee20 (patch) | |
| tree | 44ea0f7e282499a6ee83a7f5e76f56d6def834cf | |
| parent | d1ccfc3697669b3a1d419b7a8ac4c73947787463 (diff) | |
| download | perlweeklychallenge-club-7b52e47cbd16bc213b2969ddcc8f1aa399d4ee20.tar.gz perlweeklychallenge-club-7b52e47cbd16bc213b2969ddcc8f1aa399d4ee20.tar.bz2 perlweeklychallenge-club-7b52e47cbd16bc213b2969ddcc8f1aa399d4ee20.zip | |
Fixed a bug in word separation
| -rwxr-xr-x | challenge-014/aaron-sherman/us-words.p6 | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/challenge-014/aaron-sherman/us-words.p6 b/challenge-014/aaron-sherman/us-words.p6 index 1506d335fd..fdc5be91f9 100755 --- a/challenge-014/aaron-sherman/us-words.p6 +++ b/challenge-014/aaron-sherman/us-words.p6 @@ -30,15 +30,17 @@ sub get-states-map() { MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA WV WI WY>; my @others = <DC AS GU MP PR VI FM MH PW AA AE AP CM CZ NB PI TT>; - my @names = |<Alabama Alaska Arizona Arkansas California Colorado - Connecticut Delaware Florida Georgia Hawaii - Idaho Illinois Indiana Iowa Kansas Kentucky Louisiana Maine Maryland - Massachusetts Michigan Minnesota Mississippi Missouri Montana - Nebraska Nevada New Hampshire New Jersey New Mexico New York North - Carolina North Dakota Ohio Oklahoma Oregon Pennsylvania>, - |['Rhode Island'], - |<South Carolina South Dakota Tennessee Texas Utah Vermont Virginia - Washington West Virginia Wisconsin Wyoming>; + my @names = + "Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", + "Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", + "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine", + "Maryland", "Massachusetts", "Michigan", "Minnesota", "Mississippi", + "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire", + "New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", + "Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", + "South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", + "Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", + "Wyoming"; my @others-names = "District of Columbia", "American Samoa", "Guam", "Northern Mariana Islands", "Puerto Rico", "U.S. Virgin Islands", |