diff options
| -rwxr-xr-x | challenge-188/wlmb/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-188/wlmb/perl/ch-1.pl b/challenge-188/wlmb/perl/ch-1.pl index 469f5b67b1..2ec087eec5 100755 --- a/challenge-188/wlmb/perl/ch-1.pl +++ b/challenge-188/wlmb/perl/ch-1.pl @@ -18,4 +18,4 @@ while(my $z=$iter->next){ ++$count if ($x+$y)%$divisor==0; } say "The number of pairs from the list ", - join(", ", @ARGV), " divisible by $divisor is $count"; + join(", ", @ARGV), " with sum divisible by $divisor is $count"; |