diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-06-29 13:49:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-29 13:49:33 +0100 |
| commit | 92996101588f1565d25e211673b828e4c8052d73 (patch) | |
| tree | 07649a2254f04f1309c1f9f5fd7383582c74537e | |
| parent | 2ef82623f1e19810dfbc9a0e1c1e45488266e77b (diff) | |
| parent | 207272dba24dbe3d9c7ddf41866c11c5359ea378 (diff) | |
| download | perlweeklychallenge-club-92996101588f1565d25e211673b828e4c8052d73.tar.gz perlweeklychallenge-club-92996101588f1565d25e211673b828e4c8052d73.tar.bz2 perlweeklychallenge-club-92996101588f1565d25e211673b828e4c8052d73.zip | |
Merge pull request #6363 from kjetillll/challenge-171-kjetillll
prettier
| -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 |