From cff5708de2aaa2ac6b2ba4d4fcb53d1f90c1d538 Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Mon, 20 Mar 2023 17:51:17 -0600 Subject: Simplified solution --- challenge-209/wlmb/perl/ch-2.pl | 4 +--- 1 file changed, 1 insertion(+), 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 } -- cgit