25 lines
407 B
Perl
25 lines
407 B
Perl
use 5.20.0;
|
|
|
|
use Algorithm::Combinatorics qw/ partitions /;
|
|
use List::AllUtils qw/ sum any all natatime /;
|
|
|
|
use DDP;
|
|
|
|
my $possible;
|
|
my(@a,@b,@c);
|
|
while(<>) {
|
|
my @x = split ' ';
|
|
push @a, shift @x;
|
|
push @b, shift @x;
|
|
push @c, shift @x;
|
|
}
|
|
|
|
my $it = natatime 3, @a, @b, @c;
|
|
|
|
while( my @x = $it->() ) {
|
|
next unless all { $x[$_] < sum( @x ) - $x[$_] } 0..2;
|
|
$possible++;
|
|
}
|
|
|
|
say $possible;
|