solution for 30

1 files changed, 12 insertions, 0 deletions

diff --git a/030.pl b/030.pl
new file mode 100755
index 0000000..1e829a7
--- /dev/null
+++ b/030.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use List::Util qw/sum/;
+
+my @numbers;
+for my $i (10..500000) {
+    my @digits = split //, $i;
+    my $sum = sum map { $_**5 } @digits;
+    push @numbers, $i if $i == $sum;
+}
+print join('+', @numbers), ' = ', sum(@numbers), "\n";