diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2022-03-10 14:00:05 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2022-03-10 14:00:05 +0800 |
| commit | 3bfdfb33c2dfddb8fc02e54c2f46c9c36a965388 (patch) | |
| tree | 3a40c94e5230e8cface8471c62ad14d980b7e0a7 /challenge-155 | |
| parent | 2cba6844310bd423786cd5b87f2745a23f87e42d (diff) | |
| download | perlweeklychallenge-club-3bfdfb33c2dfddb8fc02e54c2f46c9c36a965388.tar.gz perlweeklychallenge-club-3bfdfb33c2dfddb8fc02e54c2f46c9c36a965388.tar.bz2 perlweeklychallenge-club-3bfdfb33c2dfddb8fc02e54c2f46c9c36a965388.zip | |
refactor a line
Diffstat (limited to 'challenge-155')
| -rw-r--r-- | challenge-155/cheok-yin-fung/perl/ch-1.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-155/cheok-yin-fung/perl/ch-1.pl b/challenge-155/cheok-yin-fung/perl/ch-1.pl index c37e1dc1e3..7277c4b548 100644 --- a/challenge-155/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-155/cheok-yin-fung/perl/ch-1.pl @@ -16,9 +16,9 @@ my @fort_sorted = (); -while ( (scalar @fort_sorted < $N) +while ( !defined($fort_sorted[$N-1]) || - (defined($fort_sorted[$N-1]) && $fort_sorted[$N-1] > $ch_primes[-1]) + $fort_sorted[$N-1] > $ch_primes[-1] ) { my $k = scalar @fort_unsort; my $tmp_int = $ch_primes[$k]; @@ -31,7 +31,6 @@ while ( (scalar @fort_sorted < $N) @fort_sorted = uniqint sort {$a<=>$b} @fort_unsort; } -say scalar @fort_unsort; say "Answer: \n", join ", ", @fort_sorted[0..$N-1]; |