13 lines
227 B
Perl
13 lines
227 B
Perl
|
use 5.20.0;
|
||
|
|
|
||
|
|
use Algorithm::Combinatorics qw( combinations );
|
||
|
|
use List::AllUtils qw/ sum min product /;
|
||
|
|
|
||
|
|
my $total;
|
||
|
|
|
||
|
|
say sum
|
||
|
|
map { 2 * ( $_->[0] + $_->[1] ), product @$_ }
|
||
|
|
map {[ sort { $a <=> $b } split 'x' ]} <>;
|
||
|
|
|
||
|
|
|