diff options
| author | robbie-hatley <Hatley.Software@gmail.com> | 2023-07-18 13:02:22 -0700 |
|---|---|---|
| committer | robbie-hatley <Hatley.Software@gmail.com> | 2023-07-18 13:02:22 -0700 |
| commit | 655c42c9a5fc5f5de4a46108a7bc70e9ecedc930 (patch) | |
| tree | 8c812dc1d04f24b942ef63661a8ed5ac05167832 | |
| parent | 2cd7abb127a8b0bcdfabd376cea5a3a6b79e116a (diff) | |
| download | perlweeklychallenge-club-655c42c9a5fc5f5de4a46108a7bc70e9ecedc930.tar.gz perlweeklychallenge-club-655c42c9a5fc5f5de4a46108a7bc70e9ecedc930.tar.bz2 perlweeklychallenge-club-655c42c9a5fc5f5de4a46108a7bc70e9ecedc930.zip | |
Dramatically improved 226-2
| -rwxr-xr-x | challenge-226/robbie-hatley/perl/ch-2.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/challenge-226/robbie-hatley/perl/ch-2.pl b/challenge-226/robbie-hatley/perl/ch-2.pl index f441edc716..4087e95e89 100755 --- a/challenge-226/robbie-hatley/perl/ch-2.pl +++ b/challenge-226/robbie-hatley/perl/ch-2.pl @@ -104,9 +104,15 @@ for my $aref (@arrays) { say "Moving on to next array."; next; } - my @nums = uniq sort {$a<=>$b} @$aref; - shift @nums if 0 == $nums[0]; - say "Number of operations required = ", scalar(@nums); + my $n = 0; + my %h; + $h{0} = 'yes'; + for (@$aref) { + next if defined $h{$_}; + ++$n; + $h{$_} = 'yes'; + } + say "Number of operations required = $n"; } # Determine and print execution time: |