From 7dc32fbe3cd63577e8a8b1a19f7e9ef795da45f4 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 02:22:15 -0500
Subject: problem 33 solution

---
 033.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 033.pl

diff --git a/033.pl b/033.pl
new file mode 100755
index 0000000..2eed234
--- /dev/null
+++ b/033.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my ($num_total, $denom_total) = (1, 1);
+for my $num (10..99) {
+    for my $denom ($num..99) {
+        next if $num == $denom;
+        my $real_frac = $num / $denom;
+
+        my ($n1, $n2) = split //, $num;
+        my $denom_test = $denom;
+        my $frac;
+        if ($denom_test =~ s/$n1//) {
+            next unless $denom_test && $n1;
+            $frac = $n2 / $denom_test;
+        }
+        elsif ($denom_test =~ s/$n2//) {
+            next unless $denom_test && $n2;
+            $frac = $n1 / $denom_test;
+        }
+        else {
+            next;
+        }
+        if ($frac == $real_frac) {
+            $num_total *= $num;
+            $denom_total *= $denom;
+        }
+    }
+}
+print $num_total/$denom_total, "\n";
-- 
cgit v1.2.3