yuuki · August 21, 2012 15:13
diff --git a/euler30.pl b/euler30.pl
 use 5.010;
 use List::Util qw(sum);

 my $digit = 1;
 while (10**$digit <= 9**5*$digit) { ++$digit; };
 say sum(grep { my $n = $_; $n eq sum(map { $_**5 } split(//, $n)) } 2..9**5*$digit);
 # => 443839
	use 5.010;
	use List::Util qw(sum);

	my $digit = 1;
	while (10$digit <= 95*$digit) { ++$digit; };
	say sum(grep { my $n = $_; $n eq sum(map { $_5 } split(//, $n)) } 2..95*$digit);
	# => 443839
No results found