#!/usr/local/bin/perl
# day 2015-14

use strict;
use warnings;
use v5.32;
use lib '.';
use Day18;

$| = 1; # flush output to STDOUT instead of buffering

@ARGV = "input" unless @ARGV;
chomp( my $input = do { local $/; <> } );

my $STEPS         = 100;
my $state_1       = init_lights( $input );
my $state_2       = init_lights( $input );

foreach ( 1 .. $STEPS )
{
    print ".";
    $state_1 = flash_lights( $state_1, 1 );
    $state_2 = flash_lights( $state_2, 2 );
}
print "\n";

say "part 1: ", count_lights( $state_1 );
say "part 2: ", count_lights( $state_2 );