summaryrefslogblamecommitdiffstats
path: root/034.pl
blob: 4a446095a2f864fdfa588f2e829ec939e7b23dae (plain) (tree)
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";