package Y::AoC;

use v5.36;

use Exporter qw(import);
our @EXPORT_OK = qw(red grey white yellow day year);

use FindBin qw($Bin);
use Term::ANSIColor;

sub red    { colored(['bright_red    on_black'], @_); }
sub white  { colored(['bright_white  on_black'], @_); }
sub grey   { colored(['white         on_black'], @_); }
sub yellow { colored(['bright_yellow on_black'], @_); }

sub day {
	my ($num) = $0 =~ /.*\D(\d+)/;
	int ((1+$num)/2);
}

sub year {
	my ($num) = $Bin =~ /.*(\d{4})/;
	$num;
}

1;