diff options
| author | Joe Tym <joe.tym@gmail.com> | 2019-06-17 14:23:29 +0200 |
|---|---|---|
| committer | Joe Tym <joe.tym@gmail.com> | 2019-06-17 14:23:29 +0200 |
| commit | 966d0802b28d404a4fb446c1e2f8d9b8c4d72aef (patch) | |
| tree | f0412798b623b5f66ae1106b8fdc43343e919791 /challenge-012 | |
| parent | e722e3a2172e57f2a47f9153faa3a8874e997abe (diff) | |
| download | perlweeklychallenge-club-966d0802b28d404a4fb446c1e2f8d9b8c4d72aef.tar.gz perlweeklychallenge-club-966d0802b28d404a4fb446c1e2f8d9b8c4d72aef.tar.bz2 perlweeklychallenge-club-966d0802b28d404a4fb446c1e2f8d9b8c4d72aef.zip | |
now in a working state
Diffstat (limited to 'challenge-012')
| -rw-r--r-- | challenge-012/joe-tym/perl5/ch-1.pl | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/challenge-012/joe-tym/perl5/ch-1.pl b/challenge-012/joe-tym/perl5/ch-1.pl index 7f4bce24ae..d5ad7a36eb 100644 --- a/challenge-012/joe-tym/perl5/ch-1.pl +++ b/challenge-012/joe-tym/perl5/ch-1.pl @@ -8,26 +8,29 @@ use Data::Dumper; =head1 synopsis http://blogs.perl.org/users/laurent_r/2019/06/perl-weekly-challenge-12-euclids-numbers-and-directories.html - Refactored to use Perl Data Language(PDL), Perl's numpy equivalent to calculate prime numbers + Refactored to use Perl Data Language(PDL), Perl's numpy equivalent, to calculate prime numbers =cut main(); sub main { - my $primes = primesfrom2to(31000); - print $primes->where($primes > 30000); exit; - #print is_prime($primes, 13); + my $primes = primesfrom2to(31000); + #print $primes->where($primes > 30000); exit; + #print is_prime($primes, 13); my @prime_numbers = $primes->list(); - print is_prime($primes, 30031); + #print is_prime($primes, 30031); for my $i (0..20) { my $euclid_1 = 1; $euclid_1 *= $prime_numbers[$_] for 0..$i; my $euclid = $euclid_1 + 1; - print Dumper($euclid); - say $euclid and last unless is_prime($primes, $euclid); + #print Dumper($euclid); + if (!is_prime($primes, $euclid)) { + print $euclid; + exit; + } } } |