diff options
| -rwxr-xr-x | challenge-209/wlmb/perl/ch-2.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-209/wlmb/perl/ch-2.pl b/challenge-209/wlmb/perl/ch-2.pl index 50a270aecd..1210214470 100755 --- a/challenge-209/wlmb/perl/ch-2.pl +++ b/challenge-209/wlmb/perl/ch-2.pl @@ -14,9 +14,7 @@ while(<>){ $names[$INPUT_LINE_NUMBER] = $name; for(@addresses){ $merge_to{$INPUT_LINE_NUMBER} = - defined $merge_to{$line_of{$_}} - ?$merge_to{$line_of{$_}} # previously merged - :$line_of{$_} # or first time merge + $merge_to{$line_of{$_}} # previously merged or undef if defined $line_of{$_}; # address has been seen before $line_of{$_}//=$INPUT_LINE_NUMBER; # map to current line if not seen before } |