From c3ff98ee4aa79bcaa07c8a478e96539c2a512e73 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 14 May 2009 19:51:41 -0500
Subject: rename files for better sorting

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

(limited to '003.pl')

diff --git a/003.pl b/003.pl
new file mode 100755
index 0000000..7fbf7ad
--- /dev/null
+++ b/003.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";
-- 
cgit v1.2.3-54-g00ecf