use lib '../../perl-lib';

use 5.36.0;

package Part1;

use List::AllUtils qw/ sum /;

use Moo;

extends 'AoC::Puzzle';

has '+input' => default => sub ($self) {
    [ split ' ', $self->path_file->slurp ];
};

has nbr_iterations => is => 'ro', default => 25;

sub evolve ( $self, $stone ) {
    return (1)               if $stone == 0;
    return ( $stone * 2024 ) if length($stone) % 2;

    my $x = $stone % 10**( length($stone) / 2 );
    my $y = int( $stone / 10**( length($stone) / 2 ) );
    return ( $y, $x );
}

sub print_line ( $self, @stones ) {
    say join " ", @stones;
}

sub solve ($self) {
    my @stones = $self->input->@*;

    my %stones;
    $stones{$_}++ for @stones;

    for ( 1 .. $self->nbr_iterations ) {
        my %new_stones;
        for my $stone ( keys %stones ) {
            $new_stones{$_} += $stones{$stone} for $self->evolve($stone);
        }
        %stones = %new_stones;
    }

    return sum values %stones;
}

1;