diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-09-28 19:50:13 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-09-28 19:50:13 -0400 |
| commit | 78c4b3edb3294a781653d9ff67126b20add144a9 (patch) | |
| tree | 14ddb28268cdc7700f82c4edbf8b3e91c437e312 | |
| parent | a1353111f06f01eae1a495e431aa954d93124bde (diff) | |
| download | perlweeklychallenge-club-78c4b3edb3294a781653d9ff67126b20add144a9.tar.gz perlweeklychallenge-club-78c4b3edb3294a781653d9ff67126b20add144a9.tar.bz2 perlweeklychallenge-club-78c4b3edb3294a781653d9ff67126b20add144a9.zip | |
changed variable names to match description
| -rw-r--r-- | challenge-080/walt-mankowski/perl/ch-1.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-080/walt-mankowski/perl/ch-1.pl b/challenge-080/walt-mankowski/perl/ch-1.pl index fd08ac491f..dd356e9bee 100644 --- a/challenge-080/walt-mankowski/perl/ch-1.pl +++ b/challenge-080/walt-mankowski/perl/ch-1.pl @@ -11,14 +11,14 @@ use experimental qw(signatures); # # Write a script to find out the smallest positive number missing. -my %h = map { $_ => 1 } @ARGV; +my %n = map { $_ => 1 } @ARGV; -my $n = 1; +my $i = 1; while (1) { - if (defined $h{$n}) { - $n++; + if (defined $n{$i}) { + $i++; } else { - say $n; + say $i; last; } } |