blob: 63e3104fb0bd3211caea1de0fb8c5f748fd16967 (
plain) (
tree)
|
|
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use List::Util qw/sum/;
my %found;
A: for my $a (1..99) {
B: for my $b ($a..9999) {
my $prod = $a * $b;
my $length = length($prod) + length($a) + length($b);
next B if $length < 9;
next A if $length > 9;
$found{$prod} = 1
if join('', sort split //, "$a$b$prod") eq '123456789';
}
}
say sum keys %found;
|