adventofcode/2016/03/1.pl

17 lines
270 B
Perl
Raw Normal View History

2017-12-28 17:18:49 +00:00
use 5.20.0;
use Algorithm::Combinatorics qw/ partitions /;
use List::AllUtils qw/ sum any all /;
use DDP;
my $possible;
while(<>) {
my @x = split ' ';
use DDP; p @x;
next unless all { $x[$_] < sum( @x ) - $x[$_] } 0..2;
$possible++;
}
say $possible;