From 4c97262a413394e77cc929e97935bc6ac8a5372e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 12:50:37 -0500
Subject: problem 69, my first non-brute-force solution!

---
 069.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 069.pl

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";
-- 
cgit v1.2.3