diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-05-15 22:17:16 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-05-15 22:17:16 +0100 |
| commit | 3e47ff5d140d6f42358af0e86432c6c1d10289fb (patch) | |
| tree | f33ec8656f2413c259ba45c813fb88e3e55d6a77 /challenge-164 | |
| parent | d3d3d0bbc9b6b30dd39a6349235b7c319709b7e6 (diff) | |
| download | perlweeklychallenge-club-3e47ff5d140d6f42358af0e86432c6c1d10289fb.tar.gz perlweeklychallenge-club-3e47ff5d140d6f42358af0e86432c6c1d10289fb.tar.bz2 perlweeklychallenge-club-3e47ff5d140d6f42358af0e86432c6c1d10289fb.zip | |
fix bug and use //
Diffstat (limited to 'challenge-164')
| -rw-r--r-- | challenge-164/james-smith/perl/ch-1.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/challenge-164/james-smith/perl/ch-1.pl b/challenge-164/james-smith/perl/ch-1.pl index 7b6f206506..1bd93f9948 100644 --- a/challenge-164/james-smith/perl/ch-1.pl +++ b/challenge-164/james-smith/perl/ch-1.pl @@ -9,10 +9,11 @@ use Benchmark qw(cmpthese timethis); use Data::Dumper qw(Dumper); use Math::Prime::Util qw(next_prime is_prime); -my ($p,$lim,@pal)=(1,@ARGV?$ARGV[0]:1e3); -is_prime(reverse $p) && (push @pal,$p) while ($p=next_prime $p) < $lim; +my ($p,$lim,@pal)=(1,shift//1e3); +($p ^ reverse $p) || (push @pal,$p) while ($p=next_prime $p) < $lim; say for @pal; -$_=1,my$LIM=@ARGV?$ARGV[0]:1e3; -is_prime(reverse$_)&&say while($_=next_prime$_)<$lim; +$_=1,my$LIM=shift//1e3; +($_^reverse$_)||say while($_=next_prime$_)<$LIM; + |