diff options
| -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: |