Project Euler 34

PE34.pl

#!/usr/bin/perl

use warnings;
use strict;
use List::Util qw/sum/;

sub fact{
    my $n = shift;
    return 1 if $n == 0;
    return $n * &fact($n - 1);
}

# 9!+9!+9!+9!+9!+9!+9! = 2540160 
my @f = map{ &fact($_) } 0..9;
print sum(grep{ my $t = $_; $t == sum(map{$f[$_]}split(//,$t)) } 3..2540160),"\n";
# => 40730