diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-07-13 21:15:38 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-07-13 21:15:38 -0400 |
| commit | 07eb6b0278a48ac904558db84683822875186338 (patch) | |
| tree | df9ab6c4be79d8e33379d284669e923c97d7063d | |
| parent | 6c0e47ff52802e8003f1a5bf88c658f8ee5918f6 (diff) | |
| download | perlweeklychallenge-club-07eb6b0278a48ac904558db84683822875186338.tar.gz perlweeklychallenge-club-07eb6b0278a48ac904558db84683822875186338.tar.bz2 perlweeklychallenge-club-07eb6b0278a48ac904558db84683822875186338.zip | |
use array instead of hash
| -rw-r--r-- | challenge-069/walt-mankowski/perl/ch-1.pl | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/challenge-069/walt-mankowski/perl/ch-1.pl b/challenge-069/walt-mankowski/perl/ch-1.pl index c36e342777..599be08898 100644 --- a/challenge-069/walt-mankowski/perl/ch-1.pl +++ b/challenge-069/walt-mankowski/perl/ch-1.pl @@ -17,16 +17,7 @@ use experimental qw(signatures); # Input: $A = 50, $B = 100 # Output: 69, 88, 96 -my %flip = (0 => 0, - 1 => 1, - 2 => 'x', - 3 => 'x', - 4 => 'x', - 5 => 'x', - 6 => 9, - 7 => 'x', - 8 => 8, - 9 => 6); +my @flip = qw(0 1 x x x x 9 x 8 6); my ($A, $B) = @ARGV; for my $n ($A..$B) { @@ -34,6 +25,6 @@ for my $n ($A..$B) { } sub is_strobogrammatic($n) { - my $flipped = join '', reverse map { $flip{$_} } split //, $n; + my $flipped = join '', reverse map { $flip[$_] } split //, $n; return $n eq $flipped; } |