blob: 4a446095a2f864fdfa588f2e829ec939e7b23dae (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
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";
|