summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-x069.pl16
1 files changed, 16 insertions, 0 deletions
diff --git a/069.pl b/069.pl
new file mode 100755
index 0000000..66d3d7c
--- /dev/null
+++ b/069.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Math::Prime::XS qw/sieve_primes/;
+
+my @primes = sieve_primes(1e4);
+
+my $prod = 1;
+for my $prime (@primes) {
+ $prod *= $prime;
+ if ($prod > 1e6) {
+ $prod /= $prime;
+ last;
+ }
+}
+print "$prod\n";