From b34c80e0be08ea4d9c5533cfd525d2181bed35b5 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 18 May 2009 21:37:08 -0500
Subject: solution to 38

---
 038.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 038.pl

diff --git a/038.pl b/038.pl
new file mode 100755
index 0000000..78c256c
--- /dev/null
+++ b/038.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $max = 0;
+for my $n (2..9) {
+    for my $val (1..99999) {
+        my $pandigital = join '', map { $val * $_ } 1..$n;
+        next if length($pandigital) != 9;
+        next if join('', sort split //, $pandigital) ne '123456789';
+        $max = $pandigital if $pandigital > $max;
+    }
+}
+print "$max\n";
-- 
cgit v1.2.3