adventofcode/2015/06/lights.pl

31 lines
543 B
Perl
Raw Normal View History

2017-12-04 15:46:21 +00:00
use 5.20.0;
my $grid = [];
while(<>) {
warn $_;
/
(?<command>on|off|toggle)
.*?
(?<from_x>\d+),
(?<from_y>\d+)
.*?
(?<to_x>\d+),
(?<to_y>\d+)
/x;
for my $x ( $+{from_x}..$+{to_x} ) {
for my $y ( $+{from_y}..$+{to_y} ) {
$grid->[$x][$y] =
$+{command} eq 'on' ? 1
:$+{command} eq 'off' ? 0
: !$grid->[$x][$y];
}
}
}
use List::AllUtils qw/ sum /;
say sum map { $_ ? @$_ : () } @$grid;