diff options
| -rw-r--r-- | challenge-171/kjetillll/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-171/kjetillll/perl/ch-1.pl b/challenge-171/kjetillll/perl/ch-1.pl index b790d01819..9a5106f167 100644 --- a/challenge-171/kjetillll/perl/ch-1.pl +++ b/challenge-171/kjetillll/perl/ch-1.pl @@ -2,7 +2,7 @@ use List::Util 'sum'; my $want = shift // 20; my($have,$n)=(0,1); -sum( grep $n % $_ == 0, 1..$n-1) > $n +sum( grep $n % $_ == 0, 1..$n-1 ) > $n and print "$n\n" and $have++ while $have < $want |