adventofcode/2016/03/2.pl
Yanick Champoux fa621a4d25 2016-03
2017-12-28 12:18:49 -05:00

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;