diff options
| -rwxr-xr-x | challenge-199/wlmb/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-199/wlmb/perl/ch-1.pl b/challenge-199/wlmb/perl/ch-1.pl index 6e6ed7ae55..7373d97249 100755 --- a/challenge-199/wlmb/perl/ch-1.pl +++ b/challenge-199/wlmb/perl/ch-1.pl @@ -9,4 +9,4 @@ say(<<~"FIN"), exit unless @ARGV >= 2; Usage: $0 N1 N2 [N3...] to find all good pairs from the set N1 N2... FIN -say join " ", @ARGV, "->", 0+grep{$ARGV[$_->[0]]==$ARGV[$_->[1]]} combinations(\@ARGV, 2) +say join " ", @ARGV, "->", 0+grep{$_->[0]==$_->[1]} combinations(\@ARGV, 2) |