diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-06-22 00:20:35 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-22 00:20:35 +0800 |
| commit | 1cec2b63f7a1a16efa64feb17466fd64bdf28c80 (patch) | |
| tree | 2ee7ec5e5b013d949598e471c497f4b38dde68e3 | |
| parent | b029c3c2ebcd301a20c53077b9b80556e3fd87ce (diff) | |
| download | perlweeklychallenge-club-1cec2b63f7a1a16efa64feb17466fd64bdf28c80.tar.gz perlweeklychallenge-club-1cec2b63f7a1a16efa64feb17466fd64bdf28c80.tar.bz2 perlweeklychallenge-club-1cec2b63f7a1a16efa64feb17466fd64bdf28c80.zip | |
fix bugs
| -rw-r--r-- | challenge-065/cheok-yin-fung/perl/ch-2.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-065/cheok-yin-fung/perl/ch-2.pl b/challenge-065/cheok-yin-fung/perl/ch-2.pl index b2bfbe0704..f28b657506 100644 --- a/challenge-065/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-065/cheok-yin-fung/perl/ch-2.pl @@ -83,9 +83,10 @@ sub need_to_remove_subsequence { } if ( #all components of $pierre is inside $peter $number_of_components == $#in+1 - and - #avoid $peter permutes -> $pierre - $sizeresult{$bigbrother} > $#in+1 ) + and + #avoid $peter permuted is $pierre + $sizeresult{$bigbrother} > $#in+1 + ) { return 1; } @@ -96,9 +97,8 @@ sub need_to_remove_subsequence { #remove_subsequence -my @aresult = keys %hresult; -for my $peter (@aresult) { - for my $pierre (@aresult) { +for my $peter (keys %hresult) { + for my $pierre (keys %hresult) { unless ( $peter eq $pierre or $peter eq $S) { if ( need_to_remove_subsequence( $peter, (split /,/, $pierre) )) { delete $hresult{$pierre}; |