From 49260ea122d3e6c5e1aab89e65b8cb8cdb10df48 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 15 May 2009 18:09:58 -0500
Subject: problem 34 solution

---
 034.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 034.pl

diff --git a/034.pl b/034.pl
new file mode 100755
index 0000000..4a44609
--- /dev/null
+++ b/034.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use List::Util qw/sum/;
+use Math::Combinatorics qw/factorial/;
+
+my @numbers;
+for my $i (10..500000) {
+    my @digits = split //, $i;
+    my $sum = sum map { factorial($_) } @digits;
+    push @numbers, $i if $i == $sum;
+}
+print join('+', @numbers), ' = ', sum(@numbers), "\n";
-- 
cgit v1.2.3