summaryrefslogtreecommitdiffstats
path: root/030.pl
blob: 1e829a788915f952c39be270b7d8394cc28da360 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
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";