summaryrefslogtreecommitdiffstats
path: root/3.pl
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-05-13 23:32:40 -0500
committerJesse Luehrs <doy@tozt.net>2009-05-13 23:32:40 -0500
commit7e7b56db42ceb8d2b8973eae678fa4b58d5d3659 (patch)
tree7a5cb816809d632e30227c1e39485ed63b500e80 /3.pl
downloadprojecteuler-7e7b56db42ceb8d2b8973eae678fa4b58d5d3659.tar.gz
projecteuler-7e7b56db42ceb8d2b8973eae678fa4b58d5d3659.zip
add old solutions
Diffstat (limited to '3.pl')
-rwxr-xr-x3.pl16
1 files changed, 16 insertions, 0 deletions
diff --git a/3.pl b/3.pl
new file mode 100755
index 0000000..7fbf7ad
--- /dev/null
+++ b/3.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $num = 317584931803;
+my $test = 3;
+while (1) {
+ if ($num % $test) {
+ $test += 2;
+ }
+ else {
+ $num /= $test;
+ }
+ last if $test > sqrt $num;
+}
+print "$num\n";