blob: 1e829a788915f952c39be270b7d8394cc28da360 (
plain) (
tree)
|
|
#!/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";
|